

FOR loop:=1 TO top D 
WRITELN( 'Type uppercase 
READ(Key) 5 WRITELN 5 
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PRINT FNSum_a r ra 
END 
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Introduction to Graphics 


Chapter 

1 


Welcome 

One of the most exciting features of your Series 200 computer is its graphics capability. Computer 
graphics is using a computer to communicate using primarily non-textual information. 

This manual introduces you to the powerful set of graphics statements in the Series 200 Basic 
Programming Language, as well as teaches you how to orchestrate them to produce pleasing 
output. This manual assumes you have read Chapters 1 through 5 of the BASIC Programming 
Techniques manual, and that you will look up any programming topics you don’t understand there. 

If you have a question as to what level of the operating system is necessary for a particular keyword 
or option, see the BASIC 3.0 Language Reference. Also, you must load the BIN files named 
GRAPH and GRAPHX before you can create graphics programs. You may need to load other BIN 
files, depending on what Series 200 computer you have. Refer to the BASIC 3.0 User’s Guide for 
information about the BIN files. Finally, certain programs in this manual require BIN files such as 
MAT that you might not readily associate with graphics. 

You may have a flexible disc called Manual Examples. The part numbers vary, depending on what 
disc drive you have, but the disc contents are identical. The Manual Examples disc contains 
programs which may be helpful, but they are not overemphasized in this manual to preclude 
dependence on them. 
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Why Graphics? 

Below is some data. As quickly as you can, determine if its overall trend is steady, rising or falling. 
Are there any periodic motions to it? If so, how many cycles are represented in the one hundred 
points? 


Voltage Variance Voltage Variance 


Time (sec) 

Voltage 

Time (sec) 

Voltage 

1 

16.10 

51 

16.69 

2 

16.25 

52 

16.55 

3 

16.25 

53 

16.65 

4 

16.28 

54 

16.62 

5 

16.36 

55 

16.67 

6 

16.31 

56 

16.68 

7 

16.27 

57 

16.81 

8 

16.08 

58 

16.88 

9 

16.10 

59 

16.87 

10 

16.06 

60 

17.07 

11 

16.07 

61 

17.16 

12 

16.17 

62 

17.16 

13 

16.14 

63 

16.94 

14 

16.26 

64 

16.98 

15 

16.34 

65 

16.83 

16 

16.40 

66 

16.83 

17 

16.56 

67 

16.71 

18 

16.60 

68 

16.81 

19 

16.44 

69 

16.83 

20 

16.51 

70 

16.84 

21 

16.35 

71 

16.81 

22 

16.41 

72 

16.98 

23 

16.28 

73 

17.05 

24 

16.19 

74 

17.23 

25 

16.30 

75 

17.30 

26 

16.24 

76 

17.34 

27 

16.27 

77 

17.14 

28 

16.44 

78 

17.22 

29 

16.44 

79 

17.16 

30 

16.57 

80 

16.96 

31 

16.60 

81 

17.02 

32 

16.70 

82 

16.99 

33 

16.72 

83 

16.84 

34 

16.66 

84 

17.06 

35 

16.58 

85 

16.96 

36 

16.62 

86 

17.15 

37 

16.46 

87 

17.30 

38 

16.33 

88 

17.37 

39 

16.34 

89 

17.39 

40 

16.36 

90 

17.51 

41 

16.45 

91 

17.32 

42 

16.52 

92 

17.47 

43 

16.56 

93 

17.29 

44 

16.77 

94 

17.17 

45 

16.89 

95 

17.10 

46 

16.80 

96 

17.07 

47 

16.96 

97 

17.06 

48 

16.80 

98 

17.09 

49 

16.74 

99 

17.13 

50 

16.77 

100 

17.20 
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Below is a graph of the same data as was in the table. Observe that the graphical nature of the 
output makes it much clearer what the data is doing. This clarity and understandability at a glance is 
what computer graphics is all about. Many example programs are included in the pages that follow. 
Type in and run them as you progress from simply drawing a jagged line to creating complex 
graphics. 


-. 

VOLTHGE VRRIRNCE 



Time (seconds ) 


V. 
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Drawing Lines 

To draw lines, you can simply say PLOT, followed by the X and Y coordinates of the point you 
want to draw a line to. The following program does just that. 


10 

GINIT 

! Initialize various Graphics parameters 

20 

PLOTTER IS 3 t "INTERNAL" 

! Use the internal screen 

30 

GRAPHICS ON 

! Turn on the Graphics screen 

40 

FOR X = 2 TO 100 STEP 2 

! Points to be plotted♦♦♦ 

50 

PLOT XtRND+50 

! Get a data point and plot it against X 

GO 

NEXT X 

! et cetera 

70 

END 

! finis 


As you can see, this seven-liner is all you need to draw a simple plot. Granted, it would be nice to 
know what we are plotting, and what the units are, etc., but we’ll get there in due time. 

The GINIT statement on line 10 means Graphics Initialize. This is almost always the first graphics 
statement you would execute. As its name implies, it sets various graphics parameters to their 
default values, and it is a shorthand way of executing up to fourteen other statements (see the Basic 
Language Reference manual for details). 

The GRAPHICS ON statement on-line 30 allows you to see what the program is drawing. 

Line 50 contains the heart of the program. In a loop, the PLOT statement draws to each successive 
point, which is determined by the loop control variable X for the X direction and the value returned 
by the function RND + 50 for the Y direction. The constant, 50, is used to center the line on the 
screen so it is not displayed in your softkey display area. 
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Scaling 

Probably the first reaction you had when looking at the previous plot was “That doesn’t show me 
anything...” That’s true; it doesn’t show much information. There is not enough variation in the 
curve; it’s too straight to show us anything. If we exaggerated the Y direction to the point where we 
could see the variations, the line would better represent plotted data. 

This problem can be remedied by scaling. In this context, scaling is “defining the values the 
computer considers to be at the edges of the plotting surface.” By definition, the left edge is the 
smaller X, the right edge is the larger X, the bottom is the smaller Y, and the top is the larger Y. Thus 
any point you plot which falls into these ranges is visible. 

Two statements are available to define your own values for the edges of the plotting surface. The 
first one we’ll deal with is SHOW, which forces X and Y units to be equal. This is called isotropic 
scaling, and it is often desirable. For example, when drawing a map, you will probably want one 
mile in the east-west direction to be the same size as a mile in the north-south direction. Here is an 
example of SHOW: 

SHOW 0 >100 >16 >18 

This causes the plotting area to be defined such that there is a rectangle in that plotting area whose 
minimum X is 0, maximum X is 100, minimum Y is 16, and maximum Y is 18, using isotropic units. 
As mentioned above, isotropic means that one unit in the X direction is equal to one unit in the Y 
direction. Hence, if the plotting area were square, the above SHOW statement would define the 
minimum X to be 0, maximum X to be 100, minimum Y to be - 33 (not 16) and maximum Y to be 
67 (not 18). The reason for this is that since we have to have X and Y units identical, the SHOW 
statement centers the specified area in the plotting area, allowing whatever extra room it needs to 
insure that that rectangle is completely contained in the plotting area. There will be extra room in 
either the X or Y direction, but not both. 

Since you (the user) were defining unit sizes with the SHOW statement, you were working with 
User-Defined Units (UDUs). Both the SHOW statement and the WINDOW statement (covered 
next) specify user-defined units. 

The next example uses a SHOW statement to define the edges of the screen to appropriate values. 
The X values used in the SHOW statement (0 and 100) come from the facts that there are 100 data 
points and that axes are more meaningful when the origin is at zero and not one. The Y values (for 
this type of plot) must be determined either by you or by the computer itself. We are using a 
random number function to simulate data being received from some device. 

If you want the computer to determine the X minimum and maximum, you could do it this way: 

210Xmax=-1.0E308 ! Smaller than smallest value in array 

210 FOR 1=1 TO N ! N is the number of elements in array 

220 IF X<I)>Xmax THEN Xmax=X(I) 

230 NEXT I 

A similar thing could be done for the Y values. 

110 Ymin = I NT(MIN(Y(*)) ) 

120 Ymax = MAX(Y(*) ) 

130 Ymax = INT(Ymax) + (YmaxOINT(Ymax)) 
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Line 110 calculates the “floor” of the minimum value in an array of Y values. The floor of a number 
is the greatest integer less than or equal to that number, i.e., rounding down to the nearest 
integer. Lines 120 and 130 calculate the “ceiling” of the maximum value in the array of Y values. 
The ceiling of a number is the smallest integer greater than or equal to that number, i.e, rounded 
up to the nearest integer. 

Back to our example, the Y values being used in the example (16 and 18) come from the RND 
function. In real applications, you probably will not know beforehand what the range of the data 
will be, in which case you can use the method described above. 


10 

GINIT 

! Initialize various Graphics parameters* 

20 

PLOTTER IS 3f"INTERNAL" 

! Use the internal screen 

30 

GRAPHICS ON 

! Turn on the Graphics screen 

40 

SHOW 0 * 100 * 15 * 19 

! Isotropic scaling: left# ri$ht* bottom* top 

50 

FOR X=2 TO 100 STEP 2 

! Points to be plotted♦♦♦ 

GO 

PLOT XtRND+17 

! Get a data point and plot it against X 

70 

NEXT X 

! et cetera 

80 

END 

! finis 



As you can see, the SHOW statement takes care of centering the curve on the screen, but since the 
range of X values is so much larger than the range of Y values (0 to 100 versus 16 to 18), it still does 
not give us enough resolution to see what the data is doing. Isotropic scaling is desirable in many 
cases. In many other cases, however, it is not. In this example, we are hypothetically graphing the 
voltage from a sensor versus time, and it makes no sense at all to force seconds to be just as “long” 
as volts. Since we are dealing with data types which are not equal, it would be better to use 
unequal, or anisotropic, scaling. We can use the other scaling statement: WINDOW. This will not 
force X units to be equal to Y units. Instead, the scaling is determined by the axis range. 
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10 

GINIT 

! I n i t i a 

20 

PLOTTER IS 3 t "INTERNAL" 

! Use th 

30 

GRAPHICS ON 

! Turn o 

40 

HIND0W 0 1100 * 15 * 19 

! Anisot 

50 

FOR X=2 TO 100 STEP 2 

! Points 

GO 

PLOT XtRND+17 

! Get a 

70 

NEXT X 

! et cet 

80 

END 

! finis 


1 ize various Sraphios parameters, 
e internal screen 
n the Sraphics screen 

ropic scaling: left, rishtt bottom* top 
to be plotted... 

data point and plot it aSainst X 
e ra 



This plot looks much better than the last one; we can easily see variations in the data. To test how 
the Y axis range, 15-19, affects relative variations in data, change WINDOW 0 > 100 > 15 > IS to 
WINDOW 0 > 100 >30 >50 and change RND+17 to RND+40. Run the program again and note that 
the line is less ragged (remember that RND ranges between 0 and 1). 

There is still one problem, though. We can see relative variations in the data, but what are the units 
being used? That is, is the height of the curve signifying differences of microvolts, millivolts, 
megavolts, dozens of volts, or what? And we probably wouldn’t want the text (explaining units, 
etc.) to be written in the same area that the curve is in, as it could obstruct part of the data curve. 
Therefore, we need to be able to specify a subset of the screen for plotting the curve; put explana¬ 
tory notes outside this area. The next section tells you how to do this. 
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Defining a Viewport 

A viewport is a subset of the plotting area. This is called the soft clip area, and it is delimited by the 
soft clip limits. Clip, because any line segments which attempt to go outside these limits are cut off 
at the edge of the subarea. Soft, because we can override these limits by turning off the clipping 
with the CLIP OFF statement (more about this later). There are hard clip limits also, and these are 
defined to be the absolute limits of the plotting area. Under no circumstances can a line be drawn 
outside of these limits. There is no way to override the hard clip limits, as we could with soft clip 
limits. 

GDUs and UDUs 

Before we define a viewport, we need to know about the two different types of units which exist. 
These two types of units are UDUs (User-Defined Units) and GDUs (Graphics Display Units). In 
order for viewports to be predictable, they must always be specified in the same units. Since UDUs 
are subject to change by the user, GDUs are used when specifying the limits of a VIEWPORT 
statement. GDUs are fixed for the CRT, so a viewport is associated with the screen, rather than the 
graphical model used in your program. 

Unless you specify otherwise, the screen (but not necessarily an external plotter) is considered to 
have the following expanse: in the X direction, 0 through 133.444816054 (on the Models 216 and 
226) or 0 through 131.362467866 (for the Models 236 and 236 color computer); in the Y 
direction: 0 through 100. These are GDUs. The length of a GDU is defined as “One percent of the 
shorter edge of the plotting area.” There are some important characteristics of GDUs which you 
need to know: 

• The lower left of the plotting area is always 0,0. 

• GDUs are isotropic; that is, one unit in the X direction is the same distance as one unit in the Y 
direction. 

Since the height of the screen is shorter than the width of the screen, the shorter edge is in the Y 
direction, therefore, Y max in GDUs is 100. If the screen had been higher than it is wide, X max in 
GDUs would have been 100. That was the easy part. Once you’ve decided which edge is shorter, 
and thus defined the units along that edge, you need to find out how many GDUs in extent the 
longer sides are. This will be covered in detail in the Using Graphics Effectively chapter. For now, 
we’ll just observe that the GDU limits are 0 to 133.444816054 in X (on the Models 216 and 226) or 
0 through 131.362467866 (for the Models 236 and 236 color computer), and 0 to 100 in Y. The 
bit-mapped monitor (Model 237) has GDU limits of 0 to 133.376792699 in X, and 0,100 in Y. 

Specifying the Viewport 

The VIEWPORT statement defines the extent of the soft clip limits in GDUs. It specifies a subarea of 
the plotting surface which acts just like the entire plotting surface except you can draw outside the 
subarea if you turn off clipping (more about clipping later). The VIEWPORT statement in the 
following program specifies that the lower left-hand corner of the soft clip area is at 10,15 and the 
upper right-hand corner is at 120,90. This is the area which the WINDOW statement affects. Also 
note line 50; the FRAME statement. This draws a box around the current soft clip limits. It is used in 
this example so you can see the area specified by the VIEWPORT statement. 







Introduction to Graphics 9 



10 GINIT 

20 PLOTTER IS 3»"INTERNAL" 

30 GRAPHICS ON 

40 VIEWPORT 10 #120 #15 »90 

50 FRAME 

GO WI NOON 0 >100*15*19 

70 FOR X=2 TO 100 STEP 2 

80 PLOT X>RND+17 

90 NEXT X 

100 END 


Initialize various Graphics parameters* 

Use the internal screen 

Turn on the Graphics screen 

Define subset of screen area 

Draw a box around d e f i ne d subset 

Anisotropic scaling left# ritfht# bottom* top 

Points to be plotted♦♦♦ 

Get a data point and plot it against X 

et cetera 

finis 



Labelling a Plot 

With the inclusion of the VIEWPORT statement, we have enough room to include labels on the 
plot. Typically, in a Y-vs-X plot like this, there is a title for the whole plot centered at the top, a 
Y-axis title on the left edge, and a X-axis title at the bottom. 


There is a statement called LABEL which writes text onto the graphics screen. You can position the 
label by using a MOVE or PLOT statement to get to the point at which you want the label to be 
placed. The lower left corner of the label is at the point to which you moved. In other words, move 
to the position on the screen at which the lower left corner of the text is placed. 


Notice in the following plot that the Y-axis label on the left edge of the screen is created by writing 
one letter at a time. We only need to move to the position of the first character in that label because 
each label statement automatically terminates with a carriage return/linefeed. This causes the pen to 
go one line down, ready for the next line of text. (There is a better way to plot vertical labels; we’ll 
see it in the next chapter.) 
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10 GINIT 

20 PLOTTER IS 3 ,"INTERNAL" 

30 GRAPHICS ON 

40 MOVE 45,95 

50 LABEL "VOLTAGE VARIANCE" 

GO MOVE 0 ,65 

70 Label$="Voltage" 

80 FOR 1=1 TO 7 

SO LABEL Labeled ,11 

100 NEXT I 

110 MOVE 45,10 

120 LABEL "Time (seconds)" 

130 VIEWPORT 10,120,15,90 

140 FRAME 

150 WINDOW 0,100,16,18 
1 GO FOR X = 2 TO 100 STEP 2 
170 PLOT X ,RND+16♦5 

180 NEXT X 

190 END 



! Initialize various Graphics parameters* 

! Use the internal screen 
! Turn on the Graphics screen 
! Move to left of middle of top of screen 
! Write title of plot 

! Move to center of left edae of screen 
! Write Y-axis label 
! Seven letters in "Voltage" 

! Label one character 
! et cetera 

! X: center of screen? Ys above Key labels 
! Write X-axis label 
! Define subset of screen area 
! Draw a box around defined subset 
! Anisotropic scalings left/risfht/ bottom /top 
! Points to be plotted♦♦♦ 

! Get a data point and plot it against X 
! et cetera 
! finis 



Now we know what we are measuring—voltage vs. time—but we still do not know the units being 
used. What we need is an X-axis and a Y-axis, and they need to be labelled with numbers in 
appropriate places. The AXES statement fills the bill here. 
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Axes and Tick Marks 


The AXES statement draws X and Y axes and short lines, perpendicular to the axes, to indicate the 
spacing of units. These short lines are called tick marks. The axes may intersect at any desired 
point; it need not be the actual origin—the point 0,0. The tick marks may be any distance apart, 
and you can select the “major tick count” for each axis. The major tick count is the total number of 
tick marks drawn for every large one. This makes it convenient to count by fives or tens or whatever 
you chose the major tick count to be. And finally, you can specify how long you want the major tick 
marks to be. This is measured in GDUs. Insert the AXES statement in your program and rerun it to 
see the difference. 


10 GINIT 

20 PLOTTER IS 3,"INTERNAL" 

30 GRAPHICS ON 

40 MOVE 45,05 

50 LABEL "VOLTAGE VARIANCE" 

GO MOVE 0 ,65 

70 Label$="Volta*e" 

80 FOR 1=1 TO 7 

90 LABEL LabeUCI ,11 

100 NEXT I 

110 MOVE 45,10 

120 LABEL "Time (seconds)" 

130 VIEWPORT 10,120,15,90 

140 FRAME 

150 WINDOW 0,100,16,18 

151 AXES 1 ,♦1 ,0,16,5,5,3 

160 FOR X=2 TO 100 STEP 2 
170 PLOT X ,RND+1G♦5 

180 NEXT X 

190 END 


Initialize various Graphics parameters* 

Use the internal screen 

Turn on the Graphics screen 

Move to left of middle of top of screen 

Write title of plot 

Move to center of left e d 3 e of screen 

Write Y-axis label 

Seven letters in "Voltage" 

Label one character 
et cetera 

Xs center of screen; Y: above Key labels 

Write X-axis label 

Define subset of screen area 

Draw a box around defined subset 

Anisotropic seal in sf: left / ri sfht/ bottom /top 

Draw X- and Y-axes with appropriate ticks 

Points to be plotted♦♦♦ 

Get a data point and plot it against X 

et cetera 

finis 


-- 

VOLTRGE VRRIRNCE 



V_ J 












12 Introduction to Graphics 


This chapter has shown you how to write a program whose output is in graphical form. Now you 
have the basic knowledge needed to get into graphics in a serious way. The next chapter discusses 
these statements in greater depth, so you can make even more effective graphical output. 
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Using Graphics Effectively 


Chapter 

2 


In the last chapter we discussed elementary graphics operations. In this chapter, we will discuss how 
to use those statements more fluently and introduce additional graphics statements. 

The Manual Examples disc, which was shipped with this manual, contains programs found in this 
chapter. If you have the disc, load the appropriate program and run it. Otherwise, it is beneficial to 
take time to type in the listed programs and run them. Either way, experiment with them until you 
are familiar with the demonstrated concepts and techniques. 


Note 

Some programs require the MAT (matrices) BIN file. 


More on Defining a Viewport 

Recall that the VIEWPORT statement defines a subset of the screen in which to plot. More 
precisely, the VIEWPORT statement defines a rectangular area into which the WINDOW coor¬ 
dinates will be mapped. (If you didn’t catch that, don’t panic. It will become clearer.) The 
VIEWPORT also invokes clipping at its edges. There will be more about clipping later in this 
chapter. 

The Y direction edge values default to 0 through 100 in Y. The X direction left edge value is 0. The 
right edge value can vary depending on what Series 200 Computer you have (approximately 
131-133). Technically, these are UDUs (User-Defined Units), although default UDUs are equiva¬ 
lent to the GDUs until you change the UDUs with a SHOW or a WINDOW. The length of a GDU is 
defined as “One percent of the shorter edge of the plotting area.” To recap the important charac¬ 
teristics of GDUs: 

• The lower left of the plotting area is 0,0. 

• GDUs are isotropic; that is, one unit in the X direction is the same distance as one unit in the Y 
direction. 

As we mentioned in the last chapter, it is trivial to determine how long the shorter edge of the screen 
is in GDUs, but substantially more involved to calculate the length of the longer edge in GDUs. 
Since the height of the screen is shorter than the width of the screen, the shorter edge is in the Y 
direction; therefore, Y max in GDUs is 100. If the screen had been higher than it is wide, X max in 
GDUs would have been 100. Now for the interesting part. 
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Remember that GDUs are isotropic: X and Y units are the same length. This means that the length 
in GDUs of the longer edges of the plotting surface is closely related to the aspect ratio of the 
plotting surface. The aspect ratio is the ratio of width to height of the plotting surface. There is a 
function called RATIO which returns the quotient of these values. Thus, if the plotting area is wider 
than it is high, RATIO returns a value greater than one. If the plotting area is higher than it is wide, 
RATIO returns a value less than one, a nd if the p lotting area were perfectly square, RATIO would 
return 1. Type RATIO and press (Return) or (ENTER) to try this. The returned value is 1.33376792699 
if you have a bit-mapped display via the Model 237 interface. This lets you know how the X 
direction values compare with the Y direction values. 

Using this function, we can derive two formulas which are almost indispensible when writing a 
general-purpose VIEWPORT statement: 

X_3du_niax = 100*MAX(l .RATIO) 

Y_3du_max=100*MAX(1 .1/RATIO) 

These two statements define the maximum X and maximum Y in GDUs. This will work no matter 
what plotting device you are using. Now that we have X _ 3 d u .max and Y _ 3 d u .max defined, we 
have complete control of the subset we want on the plotting surface. Suppose we want: 

• the left edge of the viewport to be 10% of the hard clip limit width from the left edge, 

• the right edge of the viewport to be 1% of the hard clip limit width from the right edge, 

• the bottom edge of the viewport to be 15% of the hard clip limit height from the bottom, and 

• the top edge of the viewport to be 10% of the hard clip limit height from the top. 

We would specify: 

VIEWPORT .l*X_3du_max ..99*X_3du_max ..15*Y_3du_max ..9*Y_3du_max 
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Now, armed with this new knowledge, let’s return to the program which defined the viewport, and 
update the VIEWPORT statement accordingly. You may load this program from file “SinViewprt” 
on the Manuals Examples disc. 


10 C$=CHR$ (255) &:" K 11 

20 OUTPUT 2 USING "#»K" 5C$ 

30 PRINT "Initial demonstration 

40 PRINT "... 

50 PRINT 

GO PRINT "Press the SPACEBAR to 

70 PRINT 

80 PRINT "Press Return or ENTER 

90 INPUT Q$ 

100 ON KBD GOTO Exit 

110 OUTPUT 2 USING "# >K"SC$ 

120 GINIT 

130 PLOTTER IS 3#"INTERNAL" 

140 GRAPHICS ON 

150 X_ * du_max = 100#MAX(1tRAT 10) 

1 SO Y_sfd u-.max = 100*MAX (1 * 1 /RATIO) 

170 VIEWPORT ♦l*X_3du_max * ♦99#) 

180 FRAME 


! Clear leftover display 
of Graphics*" 


Set hack to the BASIC System*" 
to see demonstration*" 


Initialize various Graphics parameters* 

Use the internal screen 

Turn on the Graphics screen 

How many GDUs wide the screen is 

How many GDUs hish the screen is 

_max t ♦15*Y_Sdu_max t ♦9*Y_Sdu_max 

Define subset of screen area 

Draw a box around defined subset 


190 



200 

210 

220 

230 


WINDOW 0 1 100 >16*18 
FOR X=2 TO 100 STEP 2 
PLOT X»RND+1B*5 
NEXT X 
GOTO 230 


Anisotropic seal in left/risfht/ bottom /top 
Points to be plotted♦♦♦ 

Get a data point and plot it aSainst X 
et cetera 


240 Exit: 
250 
2 BO 

270 END 


GRAPHICS OFF 

OUTPUT 2 USING "#,K"5C$ 

PRINT "Continue working* You are back in the BASIC System*" 

! finis 
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More on Labelling a Plot 

There are three statements which complement the LABEL statement. 

The first is CSIZE, which means character size. CSIZE has two parameters: character cell height (in 
GDUs) and aspect ratio. The height measures the character cell size. A character cell contains a 
character and some blank space above, below, left of, and right of the character. This blank space 
allows packing character cells together without making the characters illegible. The amount of blank 
space depends, of course, on which character is contained in the cell. Focus on CSIZE in the 
program. Other statements are described later. 

The small programs shows how the CSIZE statement changes the size of characters. You may load 
this program from file “Csize” on the Manual Examples disc. 


10 

20 

30 

40 

C$=CHR$ ( 255 ) & : "K" 

OUTPUT 2 U8ING "#>K"5C$ 

PRINT "Demonstration of character 

! 

s i 

Clear left over debris 

ze in Graphics*" 

H 

rixi in i — -- - -—-- 



50 

PRINT 



GO 

PRINT "Press the SPACEBAR to sret 

back to the BASIC System*" 

70 

PRINT 



80 

PRINT "Press Return or ENTER to see 

the demonstration*" 

90 

INPUT 0$ 

j 

Let user read messages 

100 

ON KBD GOTO Exit 

j 

Provide for exit 

110 

OUTPUT 2 USING "#>K"?C$ 

! 

Clear for araphics 

120 

DIM Text$C501 

j 

Allow the 1o n2 strings 

130 

GINIT 

! 

Initialize various Graphics parameters 

140 

PLOTTER IS 3 >"INTERNAL" 

! 

Use the internal screen 

150 

GRAPHICS ON 

! 

Turn on the Graphics screen 

1 GO 

FRAME 

j 

Draw a box around the screen 

170 

WIND0H -1 ,1 >10,1 

! 

Anisotropic units 

180 

L0RG 4 

i 

Bottom center of labels is ref* pt♦ 

190 

FOR 1=1 TO G 

i 

Six labels total 

200 

READ Csize >Text$ 

j 

Read the characters cell size and text 

210 

CSIZE Csize 

| 

Use Csize 

220 

M0UE 0 >SQR(I)*3+1 

j 

Move to appropriate place 

230 

LABEL Text$ 

! 

Nrite the text 

240 

NEXT I 

! 

LoopIoopIoopIoopIoopIoop 

250 

DATA 30 >T>20 >his >10 >isJus11iHe >7 > 

thosecutelittlecharts 

260 

DATA 5 > t h at y o ua 1way s s e einy o u rf rien d1y 

270 

DATA 3>neiShborhoodoptometristsoropticiansoffice* 

280 

GOTO 280 

! 

Stay in d e mo 

290 

Exit: GRAPHICS OFF 



300 

OUTPUT 2 USING "« >K" ?C$ 



310 

PRINT "Control has been returned to you and the BASIC System*" 

320 

END 

! 

have done with 
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n 1 s 

is j u s t 1 ike 

thosecutelitt1echarts 

thatyoualwaysseeinyourfriend 1y 

no 1ghborhoodoptometr1stsoropt1c1ansoff1ce. 


The FOR-NEXT loop writes lines of text on the screen with different character sizes. The DATA 
statements contain both pieces of information. Incidentally, notice the WINDOW statement. It 
specifies a Y mln larger than the Y max . This causes the top of the screen to have a lesser Y-value than 
the bottom. This is perfectly legal. 
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The next program deals with the relationship between the size of the character, per se, and the size 
of the character cell — that rectangle in which the character is placed. This program is on file 


CharCell” on the Manual Examples disc. 

10 C$=CHR$(255)&"K" 

20 OUTPUT 2 USING "#>K"iC* ! Clear leftover display 

30 PRINT "Demonstration of character cells in Sraphics." 

n a nr, t hit l> _ " 

4 V 

50 

r it i in i - 

PRINT 


GO 

PRINT "Press the " !CHR$(133) i' 

'SPACEBAR"iCHR$(128)i" to Set back to the BAS 

IC S y s t e w ♦ " 


70 

PRINT 


80 

PRINT "Press " !CHR$( 133) i"Return" iCHR$( 128) i" or 11 !CHR$ ( 133 )! "ENTER" !CHR$ ( 

128) 

i" to see the sf r a p h i c s demo*" 


90 

INPUT 0$ 

! Let user see messages 

100 

ON KBD GOTO Exit 

! Left user exit 

110 

OUTPUT 2 USING "#»K" !C$ 

! Clear for Graphics 

120 

GINIT 

! Initialize various Graphics parameters 

130 

PLOTTER IS 3 ("INTERNAL" 

! Use the internal screen 

140 

GRAPHICS ON 

! Turn on the Graphics screen 

150 

FRAME 

! Draw a box around the screen 

1G0 

SHOW 0 *38 >-7*5 *22♦ 5 

! Isotropic units? Left/Ri3ht/Bottom/Top 

170 

FOR X = 0 TO 3G 

! \ 

180 

FOR Y = 0 TO 15 

! \ 

190 

NOME X-.l » Y + * 1 

! \ 

200 

DRAW X+*1 * Y - * 1 

! \ 

210 

MOOE X+*l»Y+ *1 

! > Draw all the little X s * 

220 

DRAW X-♦1*Y- * 1 

! / 

230 

NEXT Y 

! / 

240 

NEXT X 

! / 

250 

FOR 1=0 TO 27 STEP 9 

! \ 

2G0 

CLIP I11+9 ,0 115 

! \ 

270 

FRAME 

! > Draw boxes around the character cells 

280 

NEXT I 

! / 

290 

CLIP OFF 

! Deactivate clipping so LABELS will worK 

300 

CSIZE 50 

! Character cells half the screen hi3h 

310 

MOOE 0*0 

! Starting point (LORG 1 by default) 

320 

LABEL "AbCd" 

! Sample letters 

330 

CSIZE 7**45 

! \ 

340 

LORG G 

! \ 

350 

MOOE 18*22 

! > Write the title 

3G0 

LABEL "Size of Character in Character Cell" ! / 

370 

GOTO 370 

! Stay with Graphics 

380 

Exit: GRAPHICS OFF 


390 

OUTPUT 2 USING "#(K"iC$ 

400 

PRINT "You are back in 

the BASIC System*" 

410 

END 

! Terminate 
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Size of Character in Character Cell 



As the diagram shows, a character is drawn inside a rectangle, with some space on all four sides. 
The rectangle’s height is specified by the CSIZE statement, and is measured in GDUs. The rectang¬ 
le’s width (also measured in GDUs) is the height multiplied by the aspect ratio. This rectangle is 
subdivided into a grid of 9 wide by 15 high. Characters are drawn in this framework, called the 
symbol coordinate system. Of course, the little Xs in the preceding plot are not drawn when you 
label a string of text; they are there solely to show the position of the characters within the character 
cell. 

Again, character cell height is measured in GDUs, and the definition of aspect ratio for a character is 
identical to the definition of aspect ratio for the hard clip limits mentioned earlier: the width divided 
by the height. Thus, if you want short, fat letters, use an aspect ratio of 1.5 or larger. If you want tall, 
skinny letters, use an aspect ratio less than 0.5. 

CSI2E 3 Cell 3 GDUs high, aspect ratio .6 (default). 

CSIZE G >, 3 Cell 6 GDUs high, aspect ratio .3 (tall and skinny). 

CSIZE lt2 Cell 1 GDU high, aspect ratio 2 (short and fat). 

Note that you do not have to specify a second parameter (the aspect ratio) in the CSIZE statement. 
This defaults to 0.6. 






































20 Using Graphics Effectively 


The second statement you need is LORG, which means label origin. This lets you specify which 
point on the label ends up at the point moved to before writing the label. You may load the 
following program from file “Lorg” on the Manual Examples disc. 


10 

20 

30 

40 

50 

GO 

C$=CHR$ (255) & : "K" 

OUTPUT 2 USING "#>K"5C$ ! Clear old display 

PRINT "Demonstration of label placement in Graphics*" 

PPTMT 11 _» 

PRINT 

PRINT "Press the SPACEBAR 

to sfet bacK to the BASIC System*" 

70 

80 

PRINT 

PRINT "Press Return or ENTER to see the demo*" 

90 

INPUT Q$ 

1 

Let user read messages 

100 

ON KBD GOTO Exit 

j 

Provide for exit 

110 

OUTPUT 2 USING "#>K"5C$ 

j 

Clear for Graphics display 

120 

GINIT 

j 

Initialize various Graphics parameters 

130 

PLOTTER IS 3 t "INTERNAL" 

1 

Use the internal screen 

140 

GRAPHICS ON 

j 

Turn on the Graphics screen 

150 

SHOW 0 »10 »10«5 10 

i 

Isotropic scaling: Left/Ritfht/Bottom/Top 

1G0 

FRAME 

j 

Draw a box around the screen 

170 

FOR Lo r3=1 TO 9 

j 

Loop on LORG parameters 

180 

LORG 2 

! 

Left-center origin for the "LORG n =" 

190 

CSIZE 4 

! 

Characters cell 4 GDUs hi*h 

200 

MOVE OfLoM 

! 

Move to position for "LORG n =" label 

210 

LABEL "LORG"3Lor*S"=" 

i 

Write the label 

220 

MOVE 8+♦1>Lo r2+ ♦ 1 

! 

\ 

230 

DRAW 8-♦1*Lo r2- ♦ 1 

j 

\ 

240 

MOVE 8-.1>Lor*+*l 

! 

> Draw an "X" to show where pen is 

250 

DRAW 8+♦1tLora-.l 

j 

/ 

280 

LORG LoM 

! 

Specify LORG for "TEST"* 

270 

CSIZE 8 

! 

♦♦♦and larger letters 

280 

MOVE 8>Lor* 

! 

Move the center of the "X" 

290 

LABEL "TEST" 

! 

Write "TEST"> usinsf current LORG 

300 

NEXT Lor* 

i 

And so forth 

310 

GOTO 310 

! 

Let user see demo 

320 

Exit: GRAPHICS OFF 

! 

Clear Graphics display 

330 

OUTPUT 2 USING "#»K 

" ; 

C$ 

340 

PRINT "You now have 

control of the BASIC System a*ain*" 

350 

END 

! 

Cease and desist 
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LORG 1 


TEST 

— 

X 

LORG 2 

= 

xTEST 

LORG 3 

= 

TE^f ST 

LORG 4 

= 

X 

LORG 5 

= 

TEST 

LORG G 

= 

TEi^ T 

LORG 7 

= 

X 

LORG 8 

= 

TESTx 

LORG 9 

= 

TEST* 


The xs indicate where the pen was moved to before labelling the word “TEST”. What this 
diagram means is that, for example, if LORG 1 is in effect, and you move to 4,5 to write a label, the 
lower left of that label would be at 4,5. This automatically compensates for the character size, aspect 
ratio, and label length. It makes no difference whether there is an odd or even number of characters 
in the label. If LORG 6 had been in effect, and you had moved to 4,5, the center of the top edge of 
the label would be at 4,5. You can readily see how useful this statement is in centering labels, both 
horizontally and vertically. 


The third statement you need to know is LDIR, meaning label direction. This specifies the angle at 
which the subsequent labels will be drawn. The angle is specified in the current angular units, and is 
either DEG (degrees) or RAD (radians). For example, assuming degrees is the current angular 
mode: 


LDIR 

0 

Writes label 

LDIR 

90 

Writes label 

LDIR 

14 

Writes label 

LDIR 

180 

Writes label 

LDIR 

270 

Writes label 


horizontally to the right, 
vertically, ascending, 
ascending a gentle slope, 
upside down, 
vertically, descending. 


up and right. 
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In the program below, (which is on file “Ldir” on the Manual Examples disc) you’ll note that LORG 
2 was specified, and this remained in effect for many LDIRs. Each label is centered on the left edge 
(relative to the label, remember). 


10 C$=CHR$ (255) &:" K 

20 OUTPUT 2 USING 

30 PRINT 

40 PRINT 

50 PRINT 

GO PRINT 

70 PRINT 

80 PRINT 

90 INPUT 0$ 

100 OUTPUT 2 USING 

110 ON KBD GOTO Exit 
120 GINIT 

130 PLOTTER IS 3 » 11 INTERNAL" 

140 GRAPHICS ON 

150 FRAME 

1G0 WINDOW -1 tl t-1.1 *1 
170 DEG 

180 LORG 2 

190 FOR Ansf 1 e = 0 TO 350 STEP 10 
200 LDIR An ale 

210 MODE 0*0 

220 LABEL 

230 NEXT An ale 

240 GOTO 240 

250 Exit; GRAPHICS OFF 
2S0 OUTPUT 2 USING "#tK"?C$ ! 


Provide outlet 

Initialize various araphics parameters 

Use the internal screen 

Turn on the araphics screen 

Draw a box around the screen 

Anisotropic units? Left/Riaht/Bottom /Top 

Anaular mode; Dearees 

Label oriain is left center 

Every 10 dearees 

Label 1 in a an ale 

Move to center of screen 

Write us in a the current LDIR 

And so on 

Stay in demo of araphics 


270 

280 


END 


Final screen clear 
PRINT "You are bacK in the BASIC System*" 

! Quit 


#>K"?C$ ! Clear off old display 

Demonstration of label direction in araphics*" 

_M 

Press SPACEBAR to aet back to the BASIC System*" 

Press Return or ENTER to see the demo*" 

! Let user read m e s s a a e s 

#>K"?C$ 

j 
j 
! 

! 

| 

! 

! 
j 
i 

! 
j 

LDIR"?An a 1e ! 

i 
i 












Using Graphics Effectively 23 


The label origin specified by LORG is relative to the label, not the plotting surface, and it is 
independent of the current label direction. For example, if you have specified 

LORG 3 
DEG 
LDIR 90 
MOVE 6,8 

and then write the label, it is written going straight up, not horizontally. Therefore, it is the upper left 
corner of the label which is at point 6,8 relative to the rotated label. Relative to the plotting device, 
however, it is the lower left corner of the label which is at 6,8 (in this example) because the label has 
been rotated. 

Now, we can discuss the statement which actually causes labels to be written: LABEL. LABEL 
takes into account the most recently-specified CSIZE, LDIR and LORG when it writes a label. You 
must position the label, however, by using (for example) a MOVE statement to get to the point at 
which you want the label to be placed. 
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All three statements have been utilized in the following update to our progressive plotting program. 
You may load this program from file “SinLabel” on the Manual Examples disc. 


10 

20 

30 

/I n 

C$=CHR$(255)&"K" 

OUTPUT 2 USING "#*K"?C$ ! Clear off old display 

PRINT "Demonstration of vertical/horizontal line labels*" 

DO T KIT H _" 





50 

PRINT 



BO 

PRINT "Press SPACEBAR to exit 

t 0 

the BASIC System*" 

70 

PRINT 



80 

PRINT "Press Return or ENTER to 

see the demo*" 

90 

INPUT 0$ 


Let user read messages 

100 

ON KBD GOTO Exit 


Provide for exit 

110 

OUTPUT 2 USING 


Clear for Graphics 

120 

GINIT 


Initialize various Graphics parameters* 

130 

PLOTTER IS 3 *"INTERNAL" 


Use the internal screen 

HO 

GRAPHICS ON 


Turn on the Graphics screen 

150 

X_3du_max= 100*MAX(1*RAT 10) 


Determine how many GDUs wide the screen is 

ISO 

Y_3du_max=100*MAX(1*1/RATIO) 


Determine how many GDUs hiah the screen is 

170 

LORG B 


Reference point: center of top of label 

180 

MOUE X_$du_max/2 >Y_s(du_max 


Move to middle of top of screen 

190 

LABEL "VOLTAGE VARIANCE" 


Write title of plot 

200 

DEG 


Angular mode is decrees (used in LDIR) 

210 

LDIR 90 


Specify vertical labels 

220 

CSIZE 3*5 


Specify smaller characters 

230 

MOVE 0»Y-$du-max/2 


Move to center of left ede of screen 

240 

LABEL "Voltasfe" 


Write Y-axis label 

250 

LORG 4 


Reference point: center of bottom of label 

260 

LDIR 0 


Horizontal labels a $ ain 

270 

MOVE X_3du_max/2 * ♦ 07*Y_3du_max 


X: center of screen? Y: above Key labels 

280 

LABEL "Time (seconds)" 


Write X-axis label 

290 

VIEWPORT *l*X-*du_max t*39*X.*d 

LL 

.max *♦15*Y_3du_max*♦9*Y_$du_max 




Define subset of screen area 

300 

FRAME 


Draw a box around defined subset 

310 

WINDOW 0*100*16*18 


An isotropic scaling: left/risfht / bottom /top 

320 

FOR X=2 TO 100 STEP 2 


Points to be plotted♦♦♦ 

330 

PLOT X *RND+1S♦5 


Get a data point and plot it against X 

340 

NEXT X 


et cetera 

350 

GOTO 350 


Stay in Graphics demo 

3B0 

Exit: GRAPHICS OFF 



370 

OUTPUT 2 USING "# *K"?C$ 



380 

PRINT "You haue control 

of the BASIC System a2ain ♦" 

390 

END 

! 

finis 
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— 

VOLTRGE VARIANCE 



Time (seconds ) 

_ J 


Many times it’s nice to have the most important titles not only in large letters, but bold letters, to 
make them stand out even more. It is possible to achieve this effect by plotting the to-be-bold label 
several times, moving the label origin just slightly each time. In the following version of the program 
(on file “SinLabel2” on your Manual Examples disk), notice lines 180 through 210. The loop 
variable, I, goes from — .3 to .3 by tenths. This is the offset in the X direction (in GDUs 1 ) of the label 
origin. Since this is being labelled with LORG 6 in effect, the label origin (the point moved to 
immediately prior to labelling) represents the center of the top edge of the label. 
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10 C$=CHR$(255) &"K" 

20 OUTPUT 2 USING "#>K"5C$ ! Clear off old display 

30 PRINT “Demonstration of vertical/horizontal line labels*" 

40 PRINT “-" 

50 PRINT 

GO PRINT “Press the "5CHR$(132)5"SPACEBAR"5CHR$(128)5" to tfet back to the BAS 
IC System*" 

70 PRINT 

80 PRINT "Press "5CHR$(132)5"Return"5CHR$(128)5" or "5CHR$(132)5"ENTER"5CHR*( 


128)5" to see the demo ♦" 

80 INPUT 0$ ! 

100 ON KBD GOTO Exit ! 

110 OUTPUT 2 USING "#»K"5C$ ! 

120 GINIT ! 

130 PLOTTER IS 3 1 "INTERNAL" ! 

140 GRAPHICS ON ! 

150 X- $d u_ma x = 100#MAX(1 , RATIO) ! 

ISO Y_*du.max=100*MAX(1t1/RATIO) ! 

170 LORG G ! 

180 FOR I=-♦3 TO *3 STEP *1 ! 

180 MODE X-adu-max/2+ItY-adu-max! 

200 LABEL "VOLTAGE VARIANCE" ! 

210 NEXT I ! 

220 DEG ! 

230 LDIR 90 ! 

240 CSIZE 3*5 ! 

250 MOVE 0#Y_tfdu-max/2 ! 

2G0 LABEL "Voltage" ! 

270 LORG 4 ! 

280 LDIR 0 ! 

290 MOVE X_$d u_max /2 > ♦ 07#Y_ sfd u_max ! 

300 LABEL "Time (seconds)" ! 

310 VIEWPORT *l*X-adu-max f.99*X-*du 

i 

320 FRAME ! 

330 WINDOW 0#100*16*18 ! 

340 FOR X=2 TO 100 STEP 2 ! 

350 PLOT X »RND+16♦5 ! 

360 NEXT X ! 

370 GOTO 370 ! 

380 Exit: GRAPHICS OFF 

390 OUTPUT 2 USING "#*K"5C$ 

400 * r PRINT "You are back in th 

410 END ! 


Let the user read the messages 
Provide for aettinsf back to BASIC 
Clear screen for demo 

Initialize various Graphics parameters* 

Use the internal screen 

Turn on the Graphics screen 

Determine how many GDUs wide the screen is 

Determine how many GDUs hi$h the screen is 

Reference point: center of top of label 

Offset of X from starting point 

Move to about middle of top of screen 

Write title of plot 

Next position for title 

Angular mode is decrees (used in LDIR) 

Specify vertical labels 

Specify smaller characters 

Move to center of left e d a e of screen 

Write Y-axis label 

Reference point: center of bottom of label 
Horizontal labels a sf a i n 
X: center of screen? Y: above key labels 
Write X-axis label 
.max * ♦ 15#Y_sfdu.max * ♦ 9*Y_sfdu_max 
Define subset of screen area 
Draw a box around defined subset 
Anisotropic scaling: left/ritfht/bottom/top 
Points to be plotted♦♦♦ 

Get a data point and plot it against X 

et cetera 

Stay in Graphics 


BASIC System*" 
finis 


1 Technically, a MOVE uses UDUs for its units, but until a SHOW or WINDOW is executed, UDUs are identical to GDUs. 
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This method can also be used for offsetting in the Y direction. Or, offset both X and Y. This will give 
you characters which are thick in a diagonal direction, which makes them look like they are coming 
out of the page at you. However, a more typical bolding is produced by offsetting only in the X 
direction. 


Now we know what we’re measuring—voltage vs. time—but still the units are not shown. As we 
saw in the last chapter, what is needed is an X-axis and a Y-axis, and they need to be labelled with 
numbers in appropriate places. 


* 
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Axes and Grids 

The AXES statement and the GRID statement do similar operations. We saw in the last chapter 
how to use the AXES statement. The GRID statement causes the major tick marks to extend all the 
way across the plotting surface. 


Once we have the axes drawn, we must label various points along them with numbers designating 
the values at those points. Once again, we use the LABEL statement. You may load this program 
from file “SinAxes” on the Manual Examples disc. 


10 C$=CHR$ (255) &" K 11 

20 OUTPUT 2 USING K"?C$ ! Clear leftover display 

30 PRINT "Demonstration of axes without 3rids»" 

40 PRINT "-" 

50 PRINT 

GO PRINT "Press SPACEBAR when you have finished viewinsf the araph*" 

70 PRINT 

80 PRINT "Press "5CHR*(129)5"Return"5CHR*(128)5" or "?CHR$(129)5"ENTER"?CHR$( 
128)5" to betfin." 


90 INPUT 0$ 

100 OUTPUT 2 USING "#>K"?C$ 

110 ON KBD GOTO Exit 

120 GINIT 

130 PLOTTER IS 3#"INTERNAL" 

140 GRAPHICS ON 

150 X-.sfd U-ffl a x = 100*11 AX (1 #RAT 10) 

1 GO Y_$du-Ma x = 100*MAX(1 t 1/RATIO) 

170 L0RG 8 

180 FOR I = - ♦ 3 TO ♦3 STEP *1 

190 MOVE X_ 3du_max/2+1»Y_Sdu_max 

200 LABEL "U0LTAGE VARIANCE" 

210 NEXT I 

220 DEG 

230 LDIR 90 

240 CSIZE 3♦ 5 

250 MOVE 0>Y-.*du-max/2 

260 LABEL "Voltatfe" 

270 L0RG 4 

280 LDIR 0 

290 MOVE X_^du—max/2 # *07 *Y- $ du_max 
300 LABEL "Time (seconds)" 

310 VIEWPORT ♦l*X-*du_max?*98#X- 

320 FRAME 

330 WINDOW 0 »100 »1G ?18 

340 AXES 1 ».05t0*16»10f5*3 

350 CLIP OFF 

360 CSIZE 2 ♦ 5 ? ♦ 5 

370 L0RG G 

380 FOR 1=0 TO 100 STEP 10 

390 MOVE It 15*99 

400 LABEL USING "#»K" U 

410 NEXT I 


Clear screen for $ r a p h 
Provide outlet to BASIC System 
Initialize various Graphics parameters* 

Use the internal screen 

Turn on the Graphics screen 

Determine how many GDUs wide the screen is 

Determine how many GDUs hiah the screen is 

Reference point: center of top of label 

Offset of X from starting point 

Move to about middle of top of screen 

Write title of plot 

Next position for title 

Angular mode is decrees (used in LDIR) 

Specify vertical labels 

Specify smaller characters 

Move to center of left edtfe of screen 

Write Y-axis label 

Reference point: center of bottom of label 
Horizontal labels a 3 ain 
X: center of screen? Y: above Key labels 
Write X-axis label 
_max t ♦ 15* Y- 4 d U-ma x ? ♦ 9#Y_ * du-m a x 
Define subset of screen area 
Draw a box around defined subset 
Anisotropic scalinsf: left/risht /bottom/ top 
Draw axes with appropriate ticKs 
So labels can be outside VIEWPORT limits 
Smaller chars for axis labelling 
Ref* Pt: Top center j \ 

Every 10 units I \ 

A smidgeon below X-axis ! > Label X-axis 

Compact? no CR/LF ! / 

e t s e q u e n s S / 
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420 LORG 8 

430 FOR 1=16 TO 18 STEP *25 
440 MOVE -.5 11 
450 LABEL USING "# >DD♦DD"51 
480 NEXT I 
470 PENUP 

480 FOR X=2 TO 100 STEP 2 

490 PLOT X>RND+18♦5 

500 NEXT X 

510 GOTO 510 

520 Exit: GRAPHICS OFF 

530 PRINT "You can a*ain 

540 END 


Ref* Pt: Ritfht center !\ 

Every quarter ! \ 

Smidgeon left of Y-axis ! 

DD*D; no CR/LF ! / 

etsequens !/ 


! Points to be plotted 
! Plot a data point 

! Keep 3 r a p h up til user exits 
! Clear Graphics from screen 
use the BASIC System*" 

! finis 


Label Y-axis 


-\ 

VOLTRGE VHRIRNCE 



V_ J 


Note that the tick marks drawn by the AXES statement extend only toward the interior of the graph. 
This was deliberate. Clipping (automatically put into effect by the VIEWPORT statement) was still 
active at the soft clip limits. If the CLIP OFF statement had been placed before the AXES statement, 
the tick marks would have extended on both sides of the axes. However, the axes themselves 
would have extended across the entire width of the hard clip limits and right through the axes’ 
labels. 

The CLIP OFF statement was necessary, though. The LABEL statement draws the letters as a 
series of vectors (lines), and any lines which are outside the current soft clip limits (when CLIP is 
ON) are cut off. Which means that had the CLIP OFF line been missing from the program, none of 
the axis labels would have been drawn, since they are all outside the VIEWPORT area. Of course, 
the main titles (“VOLTAGE VARIANCE”, “Voltage”, and “Time (seconds)” would still have been 
drawn, because they are done before the VIEWPORT is executed. 
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If your graph needs to be read with more precision than the AXES statement affords, you can use 
the GRID statement. This is similar to AXES, except the major ticks extend across the entire soft clip 
area, and the minor ticks for X and Y intersect in little crosses between the grid lines. The previous 
program has only one change: the AXES statement has been replaced by a GRID statement. 

GRID 5 »> 25 >0 1 16>2 i2* 1 ! Draw irid with appropriate ticks 



Note that not only was the keyword AXES replaced by GRID, some of the parameters were 
changed also. The reason for this is that the minor ticks specified in the AXES statement were so 
close together that the minor tick crosses drawn by the GRID statement would have overlapped. 
The end result would have been a grid with even the minor ticks extending all the way across the 
soft clip area. 

Strategy: Axes vs. Grids 

On many occasions, an application is defined such that there is no question as to which statement 
to use. Other times, however, it is not such a cut-and-dried situation and you want to weigh the 
alternatives carefully before setting your program in concrete. To aid you in the decision, here are 
some pros and cons to both statements. 

Advantages to AXES: 

• It executes much faster than GRID. This is for two reasons. First, there is much less calculating 
the computer must do, and second, there is much less actual drawing of lines the computer 
must do. This becomes especially evident when sending a plot to a hard-copy plotting device 
where a physical pen must be hauled around. 

• It does not clutter the plot as much. Reference points are available at the axes, but there is no 
question about where the data curve is. When using GRID, it is possible to lose the data curve 
among the reference lines if it is close to being horizontal or vertical. 
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Advantages to GRID: 

• Interpolation and estimation are much more accurate due to the great number of reference 
ticks and lines; one need not estimate horizontal and vertical lines to refer back to the axis 
labels. 

• Usually there is no need to use a FRAME statement to completely enclose the soft clip limits, as 
is often desired, because the major tick marks from the GRID statement would probably 
redraw the lines. Of course, this is dependent upon the Major Tick count. 

There is a way to get the best of both worlds, however. If you want to be able to estimate data 
points very accurately from the finished plot, but also want to prevent the plot from appearing too 
cluttered, it can be done. Below is a plot drawn by a program identical to the previous one except 
for the GRID statement. The GRID statement used specifies exactly the same parameters as the 
AXES statement (two programs ago) with one exception: the Minor Tick Length parameter is 
reduced. This causes the tick crosses (the little plus signs) to be reduced to dots. Using this strategy 
allows easy interpolation of data points (to the same accuracy previously used in the AXES 
statement), but does not clutter the graph nearly as much as normal ticks would. In fact, had we 
used the default minor tick length, 2, the length of the lines making up the tick crosses would have 
been greater than the distance between the ticks. Thus they would have merged together to make 
solid lines, extending all the way across the graph. Cluttersville! 


r~ -—-\ 

VOLTRGE VRRIRNCE 



V__ J 
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Be aware when using this strategy of making huge numbers of degenerate tick crosses because the 
computer still thinks of them as crosses, which means that both the horizontal and vertical compo¬ 
nents must be drawn. This looks to you like drawing and then redrawing each dot. Therefore, when 
sending this type of grid to a hard-copy plotter, do not be averse to starting your plot, and then 
going on vacation. 


Another way to reach a compromise between ease of interpolation and lack of clutter is to use both 
AXES and GRID in the same program. Note the program below. GRID is used for the major tick 
lines, but since the minor tick crosses are not desired within each rectangle between the major tick 
lines, AXES is used to specify minor ticks. This program is on file “SinGrdAxes” on the Manual 
Examples disc. 

10 C$ = CHR$(255)& : "K" 

20 OUTPUT 2 USING "#*K"5C$ ! Clear screen 

30 PRINT "Demonstrates a rids and axes*" 

40 PRINT "-" 

50 PRINT 

GO PRINT "View 2raph as Ion* as you wish*" 

70 PRINT "Press the SPACEBAR to sfet back to the BASIC System*" 


80 INPUT 0$ ! 
90 ON KBD GOTO Exit ! 
100 OUTPUT 2 USING "#*K"?C$ ! 
110 GINIT ! 
120 PLOTTER IS 3»"INTERNAL" ! 
130 GRAPHICS ON ! 
140 L0RG G ! 
150 X_ 3 d u_ma x = 100#MAX(1*RATIO) ! 
160 Y_*du_max=100*MAX(ltl/RATIO) ! 
170 FOR I=-♦3 TO *3 STEP *1 ! 
180 MODE X-adu_max/2+ItY-*du_max! 
190 LABEL "VOLTAGE VARIANCE" ! 
200 NEXT I ! 
210 DEG ! 
220 LDIR 90 ! 
230 CSIZE 3*5 ! 
240 MOVE 0tY_tfdu.max/2 ! 
250 LABEL "Voltage" ! 
260 L0RG 4 ! 
270 LDIR 0 ! 
280 MOVE X-*du-max/2f.07*Y-*du_max! 
290 LABEL "Time (seconds)" ! 
300 VIEWPORT *l#X_*du_max **98*X_adu 

j 

310 WINDOW 0 *100*16*18 ! 
320 AXES 1 *.05*0*16*5*5*3 ! 
330 AXES 1#.05 #100 f18 #5 »5 #3 ! 
340 GRID 10**25*0*16*1#1 ! 
350 CLIP OFF ! 
360 CSIZE 2 ♦ 5 * ♦ 5 ! 
370 L0RG G ! 
380 FOR 1=0 TO 100 STEP 10 ! 
390 MOVE 1*15*99 ! 
400 LABEL USING "#*K"?I ! 
410 NEXT I ! 


Let user view messages 

Provide exit 

Clear screen for $ r a p h 

Initialize various Graphics parameters* 

Use the internal screen 

Turn on the Graphics screen 

Reference point: center of top of label 

Determine how many GDUs wide the screen is 

Determine how many GDUs hi3h the screen is 

Offset of X from starting point 

Move to about middle of top of screen 

Write title of plot 

Next position for title 

Angular mode is decrees (used in LDIR) 

Specify vertical labels 

Specify smaller characters 

Move to center of left e d a e of screen 

Write Y-axis label 

Reference point: center of bottom of label 
Horizontal labels a a ain 
X: center of screen? Y: above Key labels 
Write X-axis label 
.max * ♦ 15*Y_3du_max * ♦ 9*Y_s(du_max 
Define subset of screen area 
Anisotropic scaling: left/risfht/bottom/top 
Draw axes intersecting at lower left 
Draw axes intersecting at upper riaht 
Draw si r i d with no minor t i c K s 
So labels can be outside VIEWPORT limits 
Smaller chars for axis labelling 
Ref* pt: Top center i\ 

Every 10 units ! \ 

A smidsfeon below X-axis ! > Label X-axis 

Compact? no CR/LF ! / 

et sesuens ! / 
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420 

L0RG 8 

! 

Ref* Pt: Ritfht center 

\ 

430 

FOR 1=18 TO 18 

STEP ♦ 25 ! 

Every quarter 

\ 

440 

MOVE -*5*1 

i 

Sm i d sf e o n left of Y-axis 

> Label Y-axis 

450 

LABEL USING 

"# tDD♦DD" U ! 

DD*D5 no CR/LF 

/ 

4B0 

NEXT I 

! 

e t s e q u e n s 

/ 

470 

PENUP 

! 

LABEL statement leaves the pen down 

480 

FOR X=2 TO 100 

STEP 2 ! 

Points to be plotted ♦♦♦ 


490 

PLOT XtRND+lG*5 ! 

Get a data point and plot 

it against X 

500 

NEXT X 

| 

et cetera 


510 

GOTO 510 




520 

Exit: GRAPHICS 

OFF 



530 

OUTPUT 2 

USING "#,K";c$ 



540 

PRINT "The demo is comple 

te ♦ You can use the BASIC 

System a sf a i n ♦" 

550 

END 

! 

finis 



VOLTRGE VRRIHNCE 



Note that two AXES statements were used. The parameters are identical save for the position of the 
intersection. The first AXES specifies an intersection position of 0,16: the lower left corner of the 
soft clip area. The second specifies an intersection position of 100,18: the upper right corner of the 
soft clip area. 

Also note that the FRAME statement was removed; the lines around the soft clip limit were being 
drawn by both the pair of AXES statements and the GRID statement anyway. 

This is the final version of our illustrative series of examples. The series of examples was used to 
help you grow in ability to create graphics programs and see how they can be structured to illustrate 
information generated from raw data (hypothetically input by using the RND function). In actual 
practice the data source could have been a voltmeter or other device. 
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Miscellaneous Graphics Concepts 


Clipping 

Something that occurs completely “behind the scenes” in your Series 200 computer when drawing 
is a process called clipping. Clipping is the process whereby lines that extend over the defined 
edges of the drawing surface are cut off at those edges. There are two different clipping boundaries 
at all times: the soft clip limits and the hard clip limits. The hard clip limits are the absolute 
boundaries of the plotting surface, and under no circumstances can the pen go outside of these 
limits. The soft clip limits are user-definable limits, and are defined by the CLIP statement. 

CLIP 10t20.5»Ymin»Ymax 

This statement defines the soft clip boundaries only; hard clip limits are completely unaffected. After 
this statement has been executed, all lines which attempt to go outside the X limits (in UDUs) of 10 
and 20.5, or the Y limits (in UDUs) of Ymin and Ymax will be truncated at the appropriate edge. 
Clipping at the soft clip limits can be turned off by the statement: 

CLIP OFF 

and it can be turned back on, using the same limits, by 
CLIP ON 

If you want the soft clip limits to be somewhere else, use the CLIP statement with four different 
limits. Only one set of soft clip limits can be in effect at any one time. Clipping at the hard clip limits 
cannot be disabled. 

The VIEWPORT statement, in addition to defining how WINDOW coordinates map into the 
VIEWPORT area, turns on clipping at the specified VIEWPORT edges. 
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Drawing Modes 

On a monochromatic CRT, there are three different drawing modes available. (For selecting pens 
with a color CRT, see Chapter 5: Model 236C Color Graphics.) The three pens perform the 
following actions: 


Pen Number 

Function 

i 

Draws lines (turns on pixels) 

-i 

Erases lines (turns off pixels) 

0 

Complements lines (changes pixels’ states) 


A characteristic of drawing with pen -1 or pen 1 is that if a line crosses a previously-drawn line, the 
intersection will be the same “color” as the lines themselves. When drawing with pen 0, and a line 
crosses a previously-drawn line, the intersection becomes the opposite state of the lines. For 
example, assume a black background (like right after a GCLEAR). You select PEN 0, then draw a 
pair of AXES. When the first axis is drawn, all pixels are off, so the line being drawn causes all pixels 
to be turned on along its length. However, when the second axis is drawn, it will turn on pixels until 
it gets to the other axis. At that point, the pixel is on, so it gets turned off. After that, the rest of the 
pixels are off, so they are again turned on. 


This concept is illustrated by the following program (file “Pen” on the Manual Examples disc). The 
listing is given so you can see it in action, but since it is a dynamic display, and constantly changing, 
it makes little sense to show a snapshot of it. Line 150 of the program defines the type of operation 
the program will exhibit. If Pen equals zero, all lines will complement, because lines 500 and 570 
select pen - 0 and + 0, which are identical. When you wish to change the program to drawing and 
erasing mode, change line 150 to say Pen = 1 . Then lines 610 and 680 will select pens — 1 and +1, 
respectively. 
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10 

20 

30 

40 

50 

BO 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

380 

370 

380 

390 

400 

410 

420 

430 

440 

450 

480 

470 

480 

490 

500 

510 

520 

530 

540 

550 


C$=CHR$(255)&"K" 

OUTPUT 2 USING "##K"5C$ 


! Clear screen of debris 


'Demonst ration of MovinS Sraphics^" 


'Press SPACEBAR to exit program*" 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 

PRINT "Press Return or ENTER to start program*" 
INPUT 0$ 

OUTPUT 2 USING "##K"5C$ 

ON KBD GOTO Exit 

INTEGER Polygon #Po1ySons#Side#Sides#Pen 
Po1y2on s = 20 


! Clear for Graphics 


S i d e s = 3 
P e n = 0 


MaKe loops faster 
How many polygons? 

How many sides apiece? 

Is Draw/erase? Os Complement 


ALLOCATE INTEGER X(0s Po 1 y Sons-1 * 1:Sides ) tY(Os Polysfons — 1 * 1:Sides ) 

ALLOCATE INTEGER Dx(Sides)#Dy(Sides) 

RANDOMIZE 
GINIT 

PLOTTER IS 3 #"INTERNAL" 

GRAPHICS ON 
WINDON 0 #511#0 #389 
PEN Pen 

FOR Side=1 TO Sides 
X(0 #Side)=RND#512 
Y(0 #Side)=RND#390 
PLOT X(0 #Side) # Y(0 #Side) 

NEXT Side 

IF Sides >2 THEN PLOT X(0 #1) #Y(0 #1) 

GOSUB Define.de1tas 
FOR PolySon=l TO Polysons-l 
PENUP 

FOR Side=1 TO Sides 

Temp = X(Poly Son- 1#Side)+Dx(Side) 

IF Temp>511 THEN 
Dx(Side)=-Dx(Side) 

ELSE ! (it's not off risht side) 

IF Temp<0 THEN Dx(Side)=-Dx(Side) 

END IF ! (off risht side?) 

X(Po1y Son #Side)=X(Po1ySon-1#Side)+Dx(Side) 

Temp = Y(Po1y Son- 1#Side)+Dy(Side) 

IF Temp>389 THEN 
Dy(Side)=-Dy(Side) 

ELSE ! (it's not off top) 

IF Temp<0 THEN Dy(Side)=-Dy(Side) 

END IF ! (off the top?) 

Y(PolySon#Side)=Y(Po1ySon-1#Side)+Dy(Side) ! Calculate new Y 
PLOT X(Po1ySon#Side) #Y(Po1yson #Side) ! Draw line to new point 

NEXT Side ! Loop for next side of polyson 

IF Sides>2 THEN PLOT X(Po1ySon#1) #Y(Po1ySon#1)! If line# don't close 


Different each time 
Initialize Sraphics parameters 
Use the internal screen 
Turn on Sraphics screen 
InteSer arithmetic is faster 
Select appropriate pen 
For each vertex*** 

♦ ♦♦define a s t a r tin S p oin t ♦ ♦ ♦ 

♦ ♦♦for both X and Y♦♦ ♦ 

♦♦♦then draw to that points 
et cetera 

If simple line# don't close 
Get dx and d v for each vertex 
Draw all the PolySons 
Don't connect PolySons 
Each vertex of each polySon 
Avoid recalculation 
\ 

\ 

> Is X out of ranse? 

/ 

/ 

! Calculate next 
Avoid recalculation 
\ 


X 


Is 


out of ranSe? 


/ 


NEXT Polyson 
New = 0 

ON CYCLE 10 GOSUB Define.de1tas 
LOOP 

IF New = 0 THEN 


Get each polyson 
Start re-use at entry 0 
ChanSe deltas periodically 
Ad inf initurn♦ ♦ ♦ 

Boundary condition? 
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560 

Previous=Polyaons-l 

! Start r e - u s i n a over 

570 

ELSE ! <r.ew>0) 


580 

Previous=(Previous+l) MOD Polygons 

! Re-use next entry 

590 

END IF ! <new=0?> 


600 

PENUP 

! Don't connect polygons 

610 

PEN -Pen 

! This works either way for Pen 

620 

DISABLE 

! Don't interrupt in "Side" loop 

630 

FOR Side = 1 TO Sides 

! \ 

640 

PLOT X(New»Side) *Y(New>Side) 

! \ 

650 

NEXT Side 

! > Erase oldest line 

660 

IF Sides>2 THEN PLOT X(New * 1) »Y(New»1) 

! / 

670 

PENUP 

! / 

680 

PEN Pen 

! Drawing pen 

690 

FOR Side-1 TO Sides 

! \ 

700 

Temp=X(Previous>Side)+Dx(Side) 

! \ 

710 

IF Temp>511 THEN 

! \ 

720 

Dx(Side)=-Dx(Side) 

! \ 

730 

ELSE 

! \ 

740 

IF Temp<0 THEN Dx(Side)=-Dx(Side) 

! \ 

750 

END IF 

! \ 

760 

X(Ne w *Sid e)= X(P re uio us t Side)+Dx(Sid e) 

! \ 

770 

Temp=Y(Previous>Side)+Dy(Side) 

! \ Draw the new line 

780 

IF Temp>389 THEN 

! / same way as before* 

790 

Dy(Side)=-Dy(Side) 

! / 

800 

ELSE 

! / 

810 

IF Temp<0 THEN Dy(Side)=-Dy(Side> 

! / 

820 

END IF 

! / 

830 

Y(New>Side)=Y(Preuious»Side)+Dy(Side) 

! / 

840 

PLOT X(New'Side) tY(New #Side) 

! / 

850 

NEXT Side 

! / 

860 

IF Sides>2 THEN PLOT X(New»1) »Y(New#1) 

! / 

870 

ENABLE 

! Interrupts OK aaain 

880 

New=(New+l) MOD Polygons 

! Next one to re-use* 

890 

END LOOP 

! End of infinite loop 

900 

DefiriP deltas" I __ 


910 

FOR Side = 1 TO Sides 

! For each vertex 

920 

Dx(Side)=RND*3+2 

! Magnitude of this dx 

930 

IF RNDC.5 THEN Dx(Side>=-Dx(Side> 

! Sian of this dx 

940 

Dy(Side)=RND#3+2 

! Magnitude of this dy 

950 

IF RND<♦5 THEN Dy(Side>=-Dy(Side) 

! Sian of this dy 

960 

NEXT Side 

! et cetera 

970 

RETURN 

! back to the main pro a ram 

980 

Exit: GRAPHICS OFF 

! Clear araphics 

990 

OUTPUT 2 USING "#>K"?C$ 

! Clear the screen 

1000 

PRINT TABXY(19*9)5"You can use the BASIC System now*" 

1010 

END 

! Finis 


Observe when running the program in complementing mode that a pixel is on only if it has been 
acted upon by an odd number of line segments. 
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Selecting Line Types 

When a graph is attempting to convey several different kinds of information, colors are often 
used: The red curve signifies one thing, the blue curve signifies another thing, etc. But when only 
one color is available, as on a monochromatic CRT, this method cannot be used. Something that 
can be used, however, is different line types. Even on a monochrome CRT, it makes sense to say 
that the solid line signifies one thing, the dotted line signifies another thing, and the dashed line 
signifies still another. 

There are ten line types on your Series 200 computer: 



LINE 

TYPE 

10 

LINE 

TYPE 

9 

LINE 

TYPE 

e 

LINE 

TYPE 

? 

LINE 

TYPE 

E 

LINE 

TYPE 

5 

LINE 

TYPE 

4 

LINE 

TYPE 

3 

LINE 

TYPE 

2 

LINE 

TYPE 

1 


As you can see, LINE TYPE 1 draws a solid line. LINE TYPE 2 draws only the end points of the 
lines and is the same as moving to a new point, dropping the pen, lifting the pen, and repeating. 
LINE TYPEs 3 through 8 are patterned sequences of on and off. With these, the length of each 
pattern, i.e, the distance the line extends before the on/off pattern begins to repeat, can be specified 
by supplying a second parameter in the LINE TYPE statement. This second parameter specifies 
distance in GDUs. For example, 

LINE TYPE 5 115 

tells the computer to start using a simple dashed line, and to proceed a total of 15 GDUs before 
starting the pattern over. On the CRT, the repeat length will be rounded to a multiple of five, with a 
minimum value of five. 

LINE TYPEs 9 and 10 are solid lines with a minor and major tick mark at the end of each line, 
respectively. The tick mark will be either horizontal or vertical. The orientation of the tick marks will 
be whatever is farther from the angle of the line just drawn. For example, if you draw a line at a 
thirty degree angle, it is closer to being horizontal than it is to being vertical. Thus, tick mark at the 
end of the line will be vertical. The value for major tick size is 2 GDUs, and minor tick length is one 
half the major tick length. 

































Using Graphics Effectively 39 


For all line types, the computer remembers where in the pattern a line segment ended. Therefore, 
when you start drawing another line segment, the line pattern will continue from where it left off. If 
you want the pattern to start over, just re-execute the LINE TYPE statement. 

Storing and Retrieving Images 

If a picture on the screen takes a long time to draw, or the image is used often, it may be advisable 
to store the image itself— not the commands used to draw the image—in memory or on a file. 

This may be done with the GSTORE command. First, you must have an INTEGER array of 
sufficient size to hold all the data in the graphics raster. The array size varies depending on what 
computer system you have in general and what monitor you have in particular. A formula for 
calculating array size is: 

( Number X pixels * Number Y pixels \ T , ., . . 

I ----- I ^Number of bits per pixel 

V 16 7 

A monochromatic display has 1 bit/pixel. The Model 236 Color Computer has 4 bits/pixel. Check 
the hardware documentation for you monitor system (including interface) to determine bits/pixel. 
This array holds the picture itself, and it doesn’t care how the information got to the screen, or in 
what order the different parts of the picture were produced. 

In the following program, the image is drawn with normal plotting commands, and then, after the 
fact , the image is read from the graphics area in memory, and placed into the array. After the array 
is filled by the GSTORE, a curve is plotted on top of the image already there. Then, turning the 
knob changes the value of a parameter, and a different curve results. But we do not have to replot 
the grid, axes and labels. We merely need to GLOAD the image (which has everything but the 
curve and the current parameter value). This allows the curve to be inspected almost in real time. 
This program is contained in file “Gstore” on the Manual Examples disc. Note that the INTEGER 
statement must be changed if this is to work on a Model 236 Color Computer. An appropriate 
replacement statement would be: 

INTEGER Sc reen(1:4 >1:12480) 


10 

20 

30 

40 

50 

BO 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 


C$=CHR$(255)&"K" 

OUTPUT 2 USING "#,K";C$ ! Clear old display 

PRINT "Demonstration of Sraphintf*" 

PRINT "..---" 

PRINT 

PRINT "Press the SPACEBAR to tfet bacK to the BASIC System*" 
PRINT 

PRINT "Press Return or ENTER to see the Graphics demo*" 


INPUT 0$ 

OUTPUT 2 USING "# #K"5C$ 

ON KBD GOTO Exit 
INTEGER Sc reen(1:12480) 

GINIT 

PLOTTER IS 3 t "INTERNAL" 
GRAPHICS ON 
CSIZE G 
L0RG 6 

X-*du-max=100*MAX<1>RATI0) 
Y-adu.max=100#MAX(l#1/RATIQ) 


Let user read messages 

Clear for Graphics 

Provide for exit 

To store the screen im a a e in 

Initialize various Graphics parameters* 

Use the internal screen 

Turn on the Graphics screen 

Larsfe letters for main title 

Reference point: center of top of label 

Determine how many GDUs wide the screen 

Determine how many GDUs hi$h the screen 


i s 
i s 
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200 

210 

220 

230 

240 

250 

2G0 

270 

280 

290 

300 

310 

320 

330 

340 

350 

380 

370 

380 

390 

400 

410 

420 

430 

440 

450 

480 

470 

480 

490 

500 

510 

520 

530 

540 

550 

580 

570 

580 

590 

800 

810 

820 

830 

840 

850 

880 

870 

880 


FOR I = -♦25 TO 4 25 STEP *1 
MOVE X_ 4 du»max/2+1 t Y_adu_max 
LABEL "BlacKbody Radiation" 
NEXT I 
CSIZE 4 

MOVE X_$du..max/2 »Y_ $du_max# 4 95 
LABEL "Temperature (K): 

DEG 

LDIR 90 
CSIZE 3*5 

MODE 0fY_*du-max/2 
LABEL "Intensity of Radiation" 
LORG 4 
LDIR 0 

MODE X-tfdu-max/2 t # 07*Y_tfdu-.max 


Offset of X from starting point 

Move to about middle of top of screen 

Write title of plot 

Next position for title 

Smaller letters for temperature legend 

R i $ h t below main title 

Label offset to left so value will fit 

Angular mode is decrees (used in LDIR) 

Specify vertical labels 

Specify smaller characters 

Move to center of left edsfe of screen 

Write Y-axis label 

Reference point: center of bottom of label 
Horizontal labels a $ ain 
X: center of screen? Y: above Key labels 


LABEL "Wavelength (microns)" 


Write X-axis label 


VIEWPORT 4 i#X-£fdu-.max * 4 98#X_adu_max >«15*Y_sfdu-max * * 9*Y_3du_max 


Define subset of screen area 


\ 


/ 


Xmin=-4 ! \ 

Xmax=3 ! \ 

X ran $e = Xmax-Xmin 
Dx= * 1 

Y m i-n = - 5 

Y m a x=2 5 

Yransfe = Ymax-Ymin ! / 

D y = 1 

WINDOW Xmin t Xmax t Ymin*Ymax 
CLIP OFF 

FOR Decade=Xmin TO Xmax 

FOR Units=l TO i+8#(Decade<Xmax)! 
X=Decade+LGT(Units) 

MOVE X »Ymin 
DRAW XfYmax 
NEXT Units 
NEXT Decade 

FOR X=Xmin TO Xmax STEP Dx*10 
LORG 8 
CSIZE 3 

MOVE X»Ymin-Yran3e*401 
LABEL USING "#>K"5"10 " 

CSIZE 2 
LORG 1 

MOVE X + X ran sfe* 4 01 »Ymin-Y ran $e* 4 03 ! 

LABEL USING "#>K"5X 
NEXT X 
CLIP ON 

AXES X r an $e* Dy t Xmin t Ymin 1 1 1 5 
AXES Xrane tDv * Xmax>Ymax 1 1#5 
GRID 1 *Dy#5 *)<min »Ymin 
CLIP OFF 


Calculate X an d Y internal data 


/ 

Anisotropic scaling: left/risfht/bottom / top 
So labels can be outside VIEWPORT limits 
\ 


\ 


Draw logarithmic X-axis 


A smidsfeon below X-axis 
Compact! no CR/LF 


\ 


\ Label the 
/ X-axis 


/ 


/ 


/ 


e t s e q u e n s 
\ 

\ 

> Only powers of 10 on Y-axis 

/ 

/ 
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690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 


Logarithmic Y-axis 
B i 3 chars for "10" 

Smidgeon left of Y-axis 

Small chars for exponent 


\ 


\ 


FOR Y=Ymin TO Ymax STEP Dy#5 ! Logarithmic Y-axis i\ 

CSIZE 4 ! Bi$ chars for "10“ ! \ 

LORG 8 

MOOE Xmin-X ran 2e# ♦03 *Y 
LABEL USING "# *K"5"10" 

CSIZE 2 
LORG 1 

MOOE Xmin-Xransfe#*025 *Y+Yrane*♦01 ! 

LABEL USING "#*K"5Y ! Compact; no CR/LF ! / 

NEXT Y ! et sequens !/ 

! Here is where the action starts*************************.♦♦♦♦♦♦♦♦♦♦ 


Label the 
Y-axis 


/ 


Store the screen im a $e in the array 
Same size letters as before 
Lower left label origin 

Number of Knob pulses before action taken 
\ These three statements define the 
> temperature in a way which can be 
/ changed logarithmically* 

Make the subroutine notice first pass 
Load the screen and plot the curve 
Look at the knob every half a second 
LoopIoopIoopIoopIoopIoqpIoopIoopIoopIoop 


GSTORE Screen(#) 

CSIZE 4 
LORG 1 
P e r = 10 
Mantissa=9 
E x p o n e n t = 2 

Tempe rature = Mantissa#10 A Ex po nen t 
R o t a t i o n = 10 
GOSUB New.curve 
ON KNOB *5 GOSUB New.curve 
900 Spin: GOTO Spin 

910 New.curve: ! - 

920 Rot ation = Rotation + KNOBX ! Accumulate knob pulses 

930 IF ABS(Rotation)<Per THEN RETURN ! If not enough* return 

940 GLOAD Screent#) ! Load sfrid (in effect* erase old curve) 

950 Delta = SGN(Rotation) ! Which way was knob turned? 

960 IF Mantissa=3 AND Exponent=2 AND Delta<0 OR Mantissa=2 AND Exponent=14 AND 


Delta>0 THEN 


970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 


! Reached the limits 
! Let user K n ow 


BEEP 100**01 
ELSE ! (in ransfe) 

FOR 1 = 1 TO INT(ABS(Rotation)/Per) ! Allow rapid change of temperature 
GOSUB Delta ! Inc re merit /dec remen t logarithmically 

NEXT I 

END IF ! (out of ran $e?) 

Temperature=Mantissa*10"Exponent ! Build temperature value 


R o t a t i o n = 0 
CLIP OFF 
MOOE 0*25*4 
LABEL USING 
PENUP 
CLIP ON 

FOR X = Xmin TO Xmax STEP Dx*2 


1 K" 5 T e m p e r a t u r e 


Start knob rotation accumulation a$ain 
Allow label to be written outside viewport 
Go to label location 
Write new temperature 
Label leaves pen down 
Turn clipping back on 

# data points: CEIL((Xmax-Xmin)/Dx+eps) 

Y = FNI n t e n s i t y (10X * Tempe r a t u r e ) ! Calculate intensity 

PLOT X*LGT(Y) ! Get a data point and plot it against X 

NEXT X ! et cetera 

RETURN 

1150 Delta: ! --- 

1160 IF Mantissa=3 AND Exponent=2 AND Delta<0 THEN RETURN ! \ Have you reached 
1170 IF Mantissa=2 AND Exponent=14 AND Delta>0 THEN RETURN ! / a boundary yet? 
1180 IF Delta>0 THEN ! Clockwise rotation 

1190 IF Mantissa=9 THEN ! Need to increment order of magnitude yet? 
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1200 Exponent=Exponent+l 

1210 Mantissa=l 

1220 ELSE ! (mantissaO) 

1230 Mantissa=Mantis5a+l 

1240 END IF ! (wantissa=9?) 

1250 ELSE ! (deltaCO) 

12G0 IF Mantissa=l THEN 
1270 Exponent=Exponent-l 

1280 Mantissa=9 

1290 ELSE ! (mantissa>l) 

1300 lianti5sa = Mantissa-l 

1310 END IF ! (mantissa=l?) 

1320 END IF ! (delta>0?) 

1330 RETURN 
1340 Exit: 

1350 
13G0 
1370 
1380 
1390 
1400 
1410 
1420 

The curve looks like the following display. 


! Increment order of magnitude 
! Start over with mantissa 

! In the middle of an order of magnitude 

! Counterclockwise rotation 
! Need to decrement order of magnitude yet? 
! Decrement order of magnitude 
! Start mantissa over asain at top end 

! In the middle of an order of magnitude 


GRAPHICS OFF 
OUTPUT 2 USING "#>K"5C$ 

PRINT "You are back in the BASIC System." 

END ! finis 

! a#******#*#***#*#**####***####**####*##*####*#####**###**#####***###**## 
Intensity: DEF FNIntensity(Wavelength>Temperature) 

I n t en s i t y = 374 10/Wav e 1 en $ t h A 5/ (EXP (1 4 ♦ 39 / (Wav e 1 en at ff#Tempe rat ure ))-l ) 

RETURN Intensity 
FNEND 
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Data-Driven Plotting 

Often, when plotting data points, they do not form a continuous line like those in the last chapter’s 
programs. One must have the ability to control the pen’s position. In the last chapter, a passing 
reference was made to a third parameter in the PLOT statement. This third parameter is the 
pen-control parameter, and its function is to raise or lower the pen so many lines can be drawn with 
one set of data, not just one continuous line. 

When using a single X-position and Y-position in a PLOT statement (as opposed to plotting an 
entire array; we’ll cover this a little later), the third parameter is defined in the following manner. 
Though it need not be of type INTEGER, its value should be an integer. If it is not, it will be 
rounded. The third parameter is either positive or negative, and at the same time, either even or 
odd. The evenness/oddness of the number determines which action will be performed on the pen, 
and the sign of the number determines when that action will be performed: before or after the pen 
is moved. 


Pen Control Parameter 



Even (Up) 

Odd (Down) 

Positive (After) 

Pen Up After Move 

Pen Down After Move 

Negative (Before) 

Pen Up Before Move 

Pen Down Before Move 


The default parameter is +1—positive odd—therefore, the pen will drop after moving, and if the 
pen is already down, it will remain down, drawing a line. Indeed, this is what happened in the first 
example in Chapter 1. Zero is considered positive. 
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Following is a program (program “Lem2” on Manual Examples disc) which uses pen control. It 
draws a LEM (Lunar Excursion Module). In particular, see how the PLOT statement was used with 
an array specifier. Notice that the X and Y values are in the same array as the pen-control 
parameters. 

10 C$=CHR$(255)&"K" 

20 OUTPUT 2 USING "#,K"iC$ ! Clear the screen 

30 PRINT "Demonstration of drawins a Lunar lander (Lem)." 

50 PRINT 

SO PRINT "The display lasts 3 seconds." 

70 PRINT "Press Return or ENTER" 

80 INPUT 0$ 

90 OUTPUT 2 USING 


100 

OPTION BASE 

1 




i 

Arrays start at one 



110 

DIM Lem(33 * 

3) 




i 

Data and pen-control 

array 


120 

READ 

L e m (*) 





! 

Define the LEM data 



130 

GINIT 





! 

Initialize various Graphics parameters 

140 

PLOTTER IS 

3*" 

INTERNAL" 


! 

Use the internal screen 


150 

SHOW 

-10*10 

*-10*10 



j 

Isotropic scaling 



1 GO 

GRAPHICS ON 





j 

Turn on the Graphics 

screen 


170 

AREA 

INTENSITY 

* 125 * 

♦ 125* 

♦ 125 

! 

12.51 sf ray 



180 

PLOT 

L e m ( *) 





! 

Plot the data 



190 

Lem: ! 

X 

Y 

Pen ! 

X 

Y 

Pen 

! X Y Pen ! X 

Y Pen 


200 

DATA 

0* 

0 * 

11 



j 

Start of polygon with 

FILL and 

EDGE 

210 

DATA 

1*5* 

1 * 

-2* 

2*5# 

. 2* 

-1 * 

2*5* 3* -1 * 1*5* 

4 * -1 ! 

Octagon 

220 

DATA 

-1*5* 

4* 

-1 * 

-2*5, 

■ 3* 

-1 * 

-2*5* 2* -1 * -1*5* 

1 * -1 


230 

DATA 

0* 

0* 

7 



! 

End of first polygon 



240 

DATA 

0* 

0 * 

6 



! 

Start of polygon with 

FILL 


250 

DATA 

-2*5* 

1 * 

-2* 

2*5* 

1 * 

-1 * 

2*5* -2* -1 * -2*5* 

-2* -1 ! 

Box 

260 

DATA 

-2*5* 

1 * 

-1 







270 

DATA 

0 * 

0 * 

7 



! 

End of second polygon 



280 

DATA 

-2*5* 

-2* 

-2* 

-4*5* 

-4* 

-1 * 

-2*5* 0 * - 1 * -5 * 

-4* -2 ! 

Left Lea 

290 

DATA 

-4* 

-4* 

-1 







300 

DATA 

2*5* 

-2* 

-2 * 

4*5* 

-4* 

-1 * 

2*5* 0 * -1 * 5 * 

-4* -2 ! 

Rt ♦ lea 

310 

DATA 

4* 

-4 * 

-1 







320 

DATA 

0* 

0 * 

10 



! 

Start of polygon with 

EDGE 


330 

DATA 

-0*5 * 

-2* 

-2* 

-1 * 

-3* 

-1 * 

1 * -3 * - 1 * 0*5* 

-2* -1 ! 

Nozzle 

340 

DATA 

0 * 

0 * 

7 



! 

End of third polygon 



350 

WAIT 

3 









360 

GRAPHICS OFF 








370 

OUTPUT 2 USING 

"#*K" 

;c$ 







380 PRINT "The proSram has ended. You can use BASIC now." 
390 END 
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Having the pen-control parameter in a third column of the data array is generally a good strategy; it 
reduces the number of array names you must declare, and when you have the data points for the 
picture, you also have the information necessary to draw it. Nevertheless, an array must be entirely 
of one type, and usually you’ll want the data to be real. If you’re pressed for memory, integer 
numbers take only one-fourth the memory real numbers take to store. 
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The PLOT keyword can plot an entire array in one statement, but you must have just one array 
holding both the data and pen-control parameters. That is, you cannot have the data in a two- 
column REAL array and the pen-control parameters in a one-column INTEGER array, unless you 
are plotting one point at a time. The array it plots must be a single two-column or three-column 
array. If it is a two-column array, the pen-control parameter is assumed to be +1 for every point 
(pen down after move). If you have a third column in the array, the array columns are interpreted in 
these ways: 


Column 1 

Column 2 

Operation 

Selector 

Meaning 

X 

Y 

- 2 

Pen up before moving 

X 

Y 

- 1 

Pen down before moving 

X 

Y 

0 

Pen up after moving (Same as +2) 

X 

Y 

1 

Pen down after moving 

X 

Y 

2 

Pen up after moving 

pen number 

ignored 

3 

Select pen 

line type 

repeat value 

4 

Select line type 

color 

ignored 

5 

Color value 

ignored 

ignored 

6 

Start polygon mode with FILL 

ignored 

ignored 

7 

End polygon mode 

ignored 

ignored 

8 

End of data for array 

ignored 

ignored 

9 

NOP (no operation) 

ignored 

ignored 

10 

Start polygon mode with EDGE 

ignored 

ignored 

11 

Start polygon mode with FILL and EDGE 

ignored 

ignored 

12 

Draw a FRAME 

pen number 

ignored 

13 

Area pen value 

red value 

green value 

14 

Color 

blue value 

ignored 

15 

Value 

ignored 

ignored 

>15 

Ignored 


For a detailed description of these parameters, see IPLOT, PLOT, RPLOT, or SYMBOL in the 
BASIC Language Reference manual. 

The AREA INTENSITY statement is how you get shades of gray on a black-and-white CRT whose 
electron gun is either fully on or completely off. You can get seventeen shades of gray. This is done 
through a process called dithering. Dithering is accomplished through selecting small groups of 
pixels 1 , a four-by-four square of them on the Series 200 computers. Various pixels in the dithering 
box are turned on and off to arrive at an “average” shade of gray. There are only seventeen 
possible shades because out of sixteen pixels (the 4x4 box), you can have none of them on, one of 
them on, two of them on, and so forth, up to all sixteen of them on. And it makes no difference 
which pixels are on; they are chosen to minimize the striped or polka-dotted pattern inherent to a 
dithered image. 

For more detail on the AREA INTENSITY and other color-related statements, see the Model 236C 
Color Graphics chapter. 


1 The word “pixel” is a blend of the two words “picture element,” and it is the smallest addressable point on a plotting surface. A Model 236 
computer has 512 x 390-pixel resolution; thus there can be no more than 512 dots drawn on any row, or scan line, of the CRT, or 390 dots 
drawn in any column. 
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Translating and Rotating a Drawing 

Often, there is an application where a segment of a drawing must be replicated in many places; the 
same sub-picture needs to be drawn many times. Using the PLOT statement, it is possible but 
rather tedious to do. There is another statement called RPLOT, which draws a figure relative to a 
point of your choice. RPLOT means Relative PLOT, and it causes a figure to be drawn relative to a 
previously-chosen reference point. RPLOT’s parameters may be two or three scalars, or a two- 
column or three-column array; the parameters are identical to those of PLOT. 

The picture defined by the data given to an RPLOT statement is drawn relative to a point called the 
current relative origin. This is not necessarily the same as the pen position. The current relative 
origin is the last point resulting from any one of the following statements: 

AXES DRAW FRAME GINIT GRID IDRAW IMOVE 

1PLOT LABEL MOVE PLOT POLYGON POLYLINE RECTANGLE SYMBOL 

Typically, a MOVE is used to position the current relative origin at the desired location, then the 
RPLOT is executed to draw the figure. After the RPLOT statement has executed, the pen may be in 
a different place, but the current relative origin has not moved. Thus, executing two identical 
RPLOT statements, one immediately after the other, results in the figure being drawn precisely on 
top of itself. 


A figure drawn with RPLOT can be rotated by using the PIVOT or PDIR statement before the 
RPLOT. The single parameter for a PIVOT or PDIR is a numeric expression designating the angular 
distance through which the figure is to be rotated when drawn. This value is interpreted according 
to the current angular mode: either DEG or RAD. 
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Here is a program using an RPLOT. It is found on the Manual Examples disc under the file name 
“Rplot”. Various figures are defined with DATA statements: a desk, a chair, a table, and a book¬ 
shelf. The program displays a floor layout. Here again, the “end polygon mode” codes (the 
0 1 0 1 7s in the desk and chair definitions) are unnecessary; when a polygon mode starts, any 
previous one ends by necessity. 


10 C$ = CHR$(255)&:"K" ! Set up clear screen variable 

20 OUTPUT 2 USING "#,K"SC$ ! Clear the screen 

30 PRINT "Demonstration of Rplot*" 

40 PRINT "_" 

50 PRINT 

GO PRINT "Press "5CHR$(133)5"Return"»CHR*(128)3" or "iCHR$(133)5"ENTER"5CHR$( 

128) 

70 INPUT 0$ ! Let user read messages 

80 OUTPUT 2 USING "#,K";C$ ! Clear the screen asfain 

90 OPTION BASE 1 ! MaKe arrays start at one 

100 DIM R o o m (10 ,3) > D e s k (18 ,3) ,Chair(14,3) ,Bookshelf(4,3) , T a b 1 e (4 ,3) 


110 READ Room(*) ,Desk(*) ,Chair(#) ,Bookshelf<*),Tablet*) 


120 GINIT 

130 PLOTTER IS 3 ,"INTERNAL" 

140 GRAPHICS ON 

150 SHOW 0 #120 #-10 #100 

180 PLOT RoomU) 

170 DEG 

180 READ Obdect$ 

130 WHILE Obdect$< >"***ST0P***" 

200 READ XtYtAnSle 

210 MODE X,Y 

220 PIU0T Ansfle 

230 SELECT 0bdect$ 

240 CASE "Desk" 

250 AREA INTENSITY * 125m 125 

2G0 RPLOT Desk(*) 

270 CASE "Chair" 

280 AREA INTENSITY *5,*5,.5 

290 RPLOT Chair(*) 

300 CASE "Bookshelf" 

310 RPLOT Bookshelf(*) ,EDGE 


! Initialize various Graphics parameters 
! Use the internal screen 
! Display the Graphics screen 
! Need isotropic units for a map 
! Draw outline of room 
! Set decrees mode for angles 
! What to draw? 

! Until done*** 

! Read where and at what ansfle 
! Move in unrotated coordinates 
! Set rotation for RPLOTs 


♦125 ! 87*5% 3ray: dark $ray 


! 507, a ray : half-and-half 


320 CASE "Table" 

330 AREA INTENSITY 0,0,0 ! 1007, tfray scale: Black 

340 RPLOT Tablet*) ,FILL,EDGE 

350 END SELECT 

3G0 READ 0b j ect$ 

370 END WHILE 


380 

Room: DATA 

0,60,-2, 

0,100 ,-l 

, 120,100,-1 

, 120,30,-1 



390 

DATA 

120>20,- 

2, 120,0,-1 

, 40,0,-1, 

40,25,-1 



400 

DATA 

0 #25 ,-1 , 

0,50,-1 





410 

Desk: DATA 

0,0,11 , 

0,0,-2, 

20 ,0,-1, 

20,-10,-1 , 

0 , - 10 , - 1 , 

0 ,0 ,7 

420 

DATA 

0 ,0,10 , 

2 , -10 , - 2 , 

2,-10*5,-1 , 

3,-10*5,-1 , 

3 , - 10 , - 1 , 

0,0.7 

430 

DATA 

0,0,10 , 

17,-10,-2, 

17,-10*5,-! , 

18 ,-10*5 ,-l 

,18,-10,-1 , 

0 ,0 ,7 

440 

Chair: DATA 

0,0,11 , 

-3,9,-2, 

3,9,-1 , 

4,8,-1 , 

3,2,-1 


450 

DATA 

-3,2,-1, 

- 4 ,8 , - 1 , 

0 ,0 ,7 




460 

DATA 

0,0,10, 

-4,1 ,-2, 

4,1 ,-l , 

4,0,-1 , 

-4 ,0 ,-l , 

0,0,7 

470 

Bookshelf:DATA 

0 ,0,-2 , 

20,0,-1, 

20,-4,-1 , 

0 , - 4 , -1 



480 

Table: DATA 

0,0 ,-2 , 

25,0,-1, 

25,-12,-1 , 

0,-12,-1 
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490 Objects: 

DATA Chair* 

14*75*90 

500 

DATA Desk* 

1*G5*90 

510 

DATA Table * 

1 *99*0 

520 

DATA Bookshelf * 

► 27*99*0 

530 

DATA Chair* 

SB*44*30 

540 

DATA Desk* 

50 *50*30 

550 

DATA Chair* 

45*65*210 

5 GO 

DATA Desk* 

GO*58*210 

570 

DATA Bookshelf *41*5*0 

580 

DATA Bookshelf *62*5*0 

590 

DATA Bookshe1f*83*5*0 

BOO 

DATA Chair* 

G * 2 G * 0 

S10 

DATA Chair* 

1G * 2 G * 0 

G20 

DATA Chair* 

2G *26 *0 

G30 

DAT A Chair* 

3G *26 *0 

G40 

DATA Chair* 

S3*96*220 

G50 

DATA Chair* 

85*83*3 

SSO 

DATA Chair* 

112*83*0 

B70 

DATA Chair* 

100*83*355 

S80 

DATA Table* 

68*99*0 

G90 

DATA Table* 

94*99*0 

700 

DATA Chair* 

105*50*270 

710 

DATA Desk* 

119*60*270 

720 

DATA ***STOP*** 

730 

NAIT 3 


740 

GRAPHICS OFF 


750 

OUTPUT 2 USING 

"#*K" ;c$ 


! \ 

! > Upper left corner of the room 

! / 

! / 

! \ 

! > Center of the room 

! / 

! / 

! \ 

! > Bottom center of room 
! / 

! \ 

! \ 

! > Four chairs by west door 

! / 

! \ 

! > Four chairs by northeast tables 

! / 

! / 

! \ 

! > Two tables in upper ri$ht 

! \ 

! > Desk and chair by east door 

! Turn off the Graphics display 


7G0 PRINT "You can use the BASIC System now* 

770 END 
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There are two points of interest in this program. First, notice that you can specify the EDGE and/or 
FILL parameters in the RPLOT statement itself, in addition to in the array. (FILLs and EDGEs are 
specified in the array by having a 6, a 10, or an 11 in the third column of the array.) If FILL or 
EDGE are specified both in the PLOT statement and in the data, and the instructions differ, the 
value in the data replaces the FILL or EDGE keyword on the statement. 

The second interesting point is that some of the chairs appear to be under the desks and tables; that 
is, parts of several chairs are hidden by other pieces of furniture. This is accomplished by drawing 
the chair, and then drawing the desk or table partially over the chair, and filling the desktop or 
tabletop with its own fill pattern, which may be black. 

Incremental Plotting 

Incremental plotting is similar to relative plotting, except that the origin, the point considered to be 
0,0—is moved every point. Every time you move or draw to a point, the origin is immediately 
moved to the new point, so the next move or draw will be with respect to that new origin. 

There are three incremental plotting statements available: IPLOT, which has the same parameters 
as PLOT and RPLOT; and IMOVE and IDRAW, which have the same parameters as MOVE and 
DRAW, respectively. 

Below is an example program using IPLOTs. It reads data from data statements describing the 
outlines of certain letters of the alphabet, and then plots them. (See Iplot on the Manual Examples 
disc. 

10 C$ = CHR$ (255) & : " K" 

20 OUTPUT 2 USING "#>K"5C$ 

30 PRINT "Demonstration of use of IPLOT*" 

40 PRINT "---" 

50 PRINT 

GO PRINT "Press "5CHR$(132)5"Return"5CHR$(12B)i" or "5CHR*(132)5"ENTER"SCHR*( 
128) 

70 INPUT 0$ 

80 OPTION BASE 1 

90 DIM Array(20 >3) 

100 GINIT 

110 PLOTTER IS 3#"INTERNAL" 

120 GRAPHICS ON 

130 SHOW 1>35»-15*15 

140 FOR Le 11 e r=1 TO 4 

150 READ Points 

ISO REDIM Array(Points»3) 

170 READ Array(*) 

180 MOVE Lette r*G >0 

190 IPLOT Array(*) 

200 NEXT Letter 


MaKe the arrays start at 1 
Set aside space for the array 
Initialize various sfraphics parameters 
Use the internal screen 
Turn on Graphics screen 
Isotropic scaling 
Four letters total 
How many points in this letter? 

Adjust the array size accordingly 
Read the correct number of points 
Move to lower-left corner of letter 
Draw letter 
et cetera 
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210 

F: 

DATA 

10 t 

0f5f-l » 

5»0t-l » 

0 t-1 

t-1 t 

-4tOt-1t 

0 t-1t-1 

220 


DATA 


3 »0 »-1 t 

0#-l #-l t 

- 3 10 

t-1 t 

0 t-2 t-1 t 

-1*0 t-1 

230 

L: 

DATA 

6 t 

0 t 5 t -1 t 

1#0 t-1 t 

0 t - 4 

t-1 t 

4tO t-1 t 

0 t-1t-1 

240 


DATA 


- 5 10 t -1 






250 

A: 

DATA 

12 t 

2t5t-l t 

1 »0f-l » 

2 t-5 

t-1 t 

-1tO t-1 t 

-.4 11 t-1 

2B0 


DATA 


-2.2t0t-l» 

-♦4 »-1 t-1 t 

-1 tO 

t-1 t 

1.8*2 t-2 t 

♦ 7 12 t-1 

270 


DATA 


♦ 7>-2t-l t 

-1 ♦ 4 10 t -1 





280 

X: 

DATA 

12 t 

1.9t2*5t-l t 

-1 ♦ 9 #2♦ 5 »-1 t 

1 tOt 

-1 t 

1.5 t-2 t-1 t 

145 t2 t-1 

290 


DATA 


1 10 »-1 t 

-1 ♦9 t-2♦5 #-1 t 

1 ♦ 3 t 

-2.5 t-1t 

-1tO t-1 t 

-1.5 *2 t-1 

300 


DATA 


-1.5»-2t-l t 

-1 tOt-1 





310 


DISP 

"Pro a raw returns to 

BASIC System 

i in 

4 seconds 

H 

♦ 


320 


WAIT 

4 







330 


GRAPHICS 

OFF 






340 


DISP 

"You 

can use BASIC 

n o w ♦" 





350 


END 



! Finis 
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Drawing Polygons 

When you want a regular 1 polygon, or a part of one, drawn on the screen, there are two statements 
which will help. The first is called POLYGON. 

One attribute of POLYGON is that it forces polygon closure, that is, the first vertex is connected to 
the last vertex, so there is always an inside and an outside area 2 . There are two final keywords 
which may be included in a POLYGON statement, and they are FILL and EDGE. FILL causes the 
interior of the polygon or polygon segment to be filled with the current fill color as defined by AREA 
PEN, AREA COLOR, or AREA INTENSITY. FILL specified without EDGE causes the interior of 
the polygon to be indistinguishable from the edge. EDGE causes the edges of the polygon to be 
drawn using the current pen and line type. If both FILL and EDGE are specified (and FILL must be 
first), the interior will be filled, then the edge will be drawn. If neither FILL not EDGE is specified, 
EDGE is assumed. On an HPGL plotter, only EDGE works. 

Polygons can be rotated by specifying a non-zero value in a PIVOT or PDIR statement before the 
POLYGON statement is executed. Also, a PDIR statement can be used to specify the angle of 
rotation. PDIR works with IPLOT, RPLOT, POLYLINE, POLYGON, and RECTANGLE. The 
rotation occurs about the origin of the figure. For example, PDIR IS would rotate a figure 15 units 
(degrees, radians). 

The shape of the polygon is affected by the viewing transformation specified by SHOW or WIN¬ 
DOW. Therefore, anisotropic scaling causes the polygon to be stretched or compressed along the X 
and Y axes. 

The pen status also affects the way a POLYGON statement works. If the pen is up at the time 
POLYGON is specified, the first vertex specified is connected to the last vertex specified, not 
including the center of the polygon, which is the current pen position. If the pen is down, however, 
the center of the polygon is also included in it. Thus, for piece-of-pie shaped polygon segments, like 
those used in pie charts, cause the pen to be down before the POLYGON statement is executed. 

After POLYGON has executed, the current pen position is in the same position it was before the 
statement was executed, and the pen is up. 

But I don’t want polygon closure... 

There is another statement called POLYLINE which acts much in the same way as POLYGON, 
except it does not connect the last vertex to the first vertex; it does not close the polygon. Obvious¬ 
ly, then, since the polygon is not closed, there is no “inside” or “outside,” hence it is meaningless to 
say FILL or EDGE. 

As in the case of POLYGON, a PIVOT or PDIR statement prior to execution of POLYLINE will 
cause the figure to be rotated. Anisotropic scaling will cause stretching or compression along the 
axes, and if the pen is down prior to invocation of the statement, a line will be drawn from the 
center to the first perimeter point. 

After POLYLINE has executed, the current pen position is in the same position it was before the 
statement was executed, and the pen is up. 

1 In this discussion, polygons drawn when anisotropic units are in effect, will also be considered “regular”. Anisotropic units will cause 
stretching or compression of the polygons in the X or Y direction. 

2 Technically, this is true even for the degenerate case of drawing only one side of a polygon, in which case a “single” line results. This is 
actually two lines, from the first point to the last point, and back to the first. 
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Following is a program which demonstates the use of POLYGON, POLYLINE, PLOT, RPLOT, 
polygon filling, and gray-shading. The program may be loaded from file “Scenery” on the Manual 
Examples disc. 


10 

20 

30 

40 

50 

GO 

128) 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

280 

270 

280 

290 

300 

310 

320 

330 

340 

350 

380 

370 

380 

390 

400 

410 

420 

430 

440 

450 

480 

470 

480 

490 

500 


C$=CHR$(255)&"K" 

OUTPUT 2 U9ING "##K"5C$ 

PRINT “Demonstration of drawing a scene/' 

PRINT "After the scene is drawn# you return to BASIC in 3 seconds*" 

PRINT 

PRINT "Press "5CHR$(129)5"Return"5CHR$(128)5" or "5CHR$(129)5"ENTER"5CHR$( 


##K"5C$ 

) #T ree (24 #2) #Tree2(24#2) 


Arrays start at 1* 

For PLOT# RPLOT 

Initialize Graphics parameters 
Use the internal screen 
Turn on Graphics screen 
1 UDU = 1 pixel 
"Looks better" than default 


Diameter of outer layer 
Shrinkage of each brightness 
Center of sun 
All n o n-b1 a c k * r a y shades 
Define dithered 3ray shade 

POLYGON Sun_diameter+(IS-18*1)*Sun_de1ta#30#FILL ! Draw sun 

! and so forth 


INPUT 0$ 

OUTPUT 2 USING 
OPTION BASE 1 
DIM Ho rizon(20 #2 
GINIT 

PLOTTER IS 3 #"INTERNAL 
GRAPHICS ON 
NINDON 0 #511#0 #389 
RANDOMIZE 123458789 
! Draw sunrise 
Suri-d i amete r = 30 
Sun_delta=6 
MODE 258#190 

FOR 1=1/18 TO 1 STEP 1/18 
AREA INTENSITY I#1#1 

NEXT I 

! Draw horizon 
H o r i z o n (1 # 1) = 0 
Horizon(l# 2)= 0 
Dx = 511/(20-3) 

X = - D x 

FOR 1=2 TO 19 
X=X+Dx 

Horizond # 1) = X 
Ho rizon(I#2) = 185+RND*10 
NEXT I 

Ho rizon(20 #1)=511 
Ho rizon(20 #2)=0 
AREA INTENSITY 0#0#0 
PLOT Ho rizon(*) #FILL 
PENUP 

FOR 1=2 TO 20-1 

PLOT Horizon(I#1) #Horizon(I#2) 
NEXT I 

! Draw clouds 
WINDOW -2 #2 #-15 #15 
AREA INTENSITY *25#*25#*25 
FOR 1=1 TO 10 

MODE RND**8*4-2#RND*8 
POLYGON RND*♦8 #FILL 
NEXT I 

WINDON 0 #511>0 #389 
! Draw birds 


\ Lower left corner of screen# 

/ for blacking bottom of sun 

Delta X for horizon 

Starting point for X 

All except end points 

I n c r e m e n t X 

Put it in the array 

Random height for roughness 

and so forth 

\ Lower ri*ht corner of screen 
/ for blacking bottom of sun 
Black 

Erase bottom of sun 

PLOT left pen down 

\ Draw the horizon polygon# 

> b ut don't include first 
/ and last points (corners)* 


Anisotropic seal in* 

257, *ray shade 

10 ellipses 

Random position 

random size# fill it 

and so forth 

Back to 1 UDU = 1 pixel 
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510 

DEG 

| 

Angular mode: Decrees 

520 

Phi=70 

j 

Arc subtended by each win* 

530 

FOR Bird = i TO 10 

! 

Ten birds e no u* h 

540 

Position., an * 1e=RND*360 

| 

Bird's direction from 100*300 

550 

Distance=SQR(RND)*70 

| 

Bird's distance from 100*300 

5B0 

X =100+Dis t an c e #C0S(P o sitio n-an *1e) 

! 

Bird's actual X position 

570 

Y=300+Distance#SIN(Position_an*le) 

! 

Bird's actual Y position 

580 

Theta=RND#20-10 

j 

Bird's tilt 

590 

R=RND*10+10 

! 

Radius of arcs of birds' win*s 

600 

Left_an *1e = 180+(90-Phi/2)+Theta 

j 

Direction of left arc's center 

610 

X2=X+R*C0S(Lef t_an *1e ) 

! 

Center of left wind's arc (X) 

620 

Y2=Y+R*SIN(Left_anSle) 

j 

Center of left wind's arc (Y) 

630 

PIVOT 0 

! 

Unrotated coords for MOVE 

640 

MOVE X2 »Y2 

! 

Left arc's center 

650 

PIVOT Theta+90-Phi/2 

! 

Rotated coords for POLYLINE 

660 

POLYLINE R >60 *60#Phi/360 

j 

Left wind's arc 

670 

Ri*ht_an *1e = Theta-90+Phi/2 

! 

R i * h t arc's center's direction 

680 

X3=X+R*C0S(Ri*ht_an*le ) 

i 

Center of risfht wind's arc (X) 

690 

Y3=Y+R*SIN(Ri*ht_anSle) 

| 

Center of ri*ht wind's arc (Y) 

700 

PIVOT 0 

j 

Unrotated coords for MOVE 

710 

MOVE X3 *Y3 

! 

R i * h t arc's center 

720 

PIVOT Theta+90-Phi/2 

! 

Rotated coords for POLYLINE 

730 

POLYLINE R >60 *60#Phi/360 

! 

Ri* h t wind's arc 

740 

NEXT Bird 

j 

and so forth 

750 

PIVOT 0 

j 

Back to normal for trees 

760 

irNnai.i+rkooe _ _ _ _ _ 



! Ulciw LlCCb- 



770 

AREA INTENSITY .5*.5».5 

j 

507, *ray 

780 

Treed *l)=-.5 

| 

\ 

790 

Treed *2)=0 

j 

\ Define by hand the t runK 

800 

Tree(2 * 1)=- ♦ 5 

! 

/ of the tree 

810 

Tree(2 #2) = 1 

! 

/ 

820 

FOR 1=3 TO 12 STEP 2 

j 

\ 

830 

Treed * 1)=-((13-1)/4) 

! 

\ 

840 

Treed *2)=(I-l)/2 

j 

\ Define programmatically 

850 

Tree(I+l*l)=(Tree(I*l)+.5)/2 

! 

/ the branches of the trees 

860 

Tree <1 + 1»2)=Tree(I*2) + l 

j 

/ 

870 

NEXT I 

! 

/ 

880 

FOR 1=13 TO 24 

! 

\ The risfht half of the tree 

890 

Treed »1) =-T ree (25-1 *1) 

! 

\ (and thus the tree array*) 

900 

Treed #2) =T ree (25-1 >2) 

| 

/ is the mirror ima*e of the 

910 

NEXT I 

! 

/ left half* 

920 

Y =180 

! 

S t a r t i n * u a 1 u e 

930 

WHILE Y>10 

! 

For a few iterations*.♦ 

940 

FOR 1=1 TO Y A (Y/180)/2 

! 

No* of trees dependent upon Y 

950 

Y2=RND*20 

| 

Random variation 

960 

MOVE RND#511*Y+Y2-15 

! 

Bottom of center of tree 

970 

Size=(200-(Y+Y2))*♦1 

j 

Size of tree dependent upon Y 

980 

MAT Tree2= Tree*(Size) 

j 

Scale tree appropriately 

990 

RPLOT Tree2(*) »FILL 

! 

FILL* but don't EDGE 

1000 

NEXT I 

! 

and so forth 

1010 

Y = Y# ♦8 

! 

Go lower on the screen 

1020 

END WHILE 

! 

for a w hi1e♦♦♦ 

1030 

WAIT 3 



1040 

GRAPHICS OFF 



1050 

PRINT "End of scenery demo* You have 

been 

returned to the BASIC System." 

1060 

END 

I 

Finis 
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Points of note in this program: 


1 . 


The sunrise was created with graduated gray shades in successively smaller “circles” (actual¬ 
ly 30-sided polygons). 


2. The horizon was created by defining a rough edge on the top half of a polygon which 
blacked out the bottom section of the screen. This covered up the bottom of the sun. The 
white line of the horizon was simple plotting of the horizon array without the first and last 
points. We didn’t want the lower corners of the screen to be included. 


3. 

4. 

5. 



The clouds were created by plotting “circles” after having invoked anisotropic units; thus 
long, thin ellipses resulted. 

The seagulls were created by drawing two arcs with POLYLINE. An arc is created by defining 
an N-sided polygon and drawing less-than-N sides. Note that PIVOT was used to cause the 
starting angle of the arcs to be other than straight to the right. 

The trees were created by defining an array whose left side is a mirror image of the right side. 
The array is centered around zero in the X direction to allow for scaling of the tree simply by 
multiplying the array by a constant. RPLOT was used to place the trees in their various 
positions. 
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Rectangles 

One of the most-used polygons in computer graphics is the rectangle. You can cause a rectangle to 
be drawn by moving to the point at which you want one of the corners to be and then specifying 
which directions to proceed from there, first in the X direction, then in the Y direction. Which corner 
of the rectangle ends up at the current pen position depends on the signs of the X and Y para¬ 
meters. For example, if you want a rectangle whose lower left corner is at 3,2 and which is 4 units 
wide and 5 units high, there are four ways you could go about it: 


MOVE 3,2 

(Reference point is the 

RECTANGLE 4,5 

lower left corner) 

MOVE 7,2 

(Reference point is the 

RECTANGLE -4,5 

lower right corner) 

MOVE 3,7 

(Reference point is the 

RECTANGLE 4,-5 

upper left corner) 

MOVE 7,7 

(Reference point is the 

RECTANGLE -4,-5 

upper right corner) 


Again, you can specify FILL, EDGE, or both. FILL will cause the rectangle to be filled with the 
current fill color as specified by AREA PEN, AREA COLOR, or AREA INTENSITY. EDGE causes 
the edge of the rectangle to be drawn in the current pen color and line type. If both are specified, 
FILL must be specified first, and if neither is specified, EDGE is assumed. The current pen position 
is not changed by this statement, and pen status prior to execution makes no difference in the 
resulting rectangle. 

User-Defined Characters 

For many special-purpose programs, there is a drastic shortage of characters that can be displayed 
on the screen. Greek letters— it, A, 2, and so forth—are quite often needed for mathematics¬ 
intensive communication as well as many non-alphabetic symbols like y /, °°, and ±. To alleviate 
this shortage of symbols, the SYMBOL statement allows you to draw any definable character. In 
function, it is similar to PLOT using an array, except the figure drawn by SYMBOL is subject to the 
three transformations which deal with character labelling: CSIZE, LDIR, and LORG. 

The first argument needed by the SYMBOL statement is the array containing the instructions on 
what to draw. As in PLOT, this array may either have two or three columns. If the third column 
does not exist, it is assumed to be +1 for every row of the array. If it does exist, the valid values for 
the third-column entries are identical to those for PLOT, RPLOT, and IPLOT when using an array. 
The possible values for the third column are listed again here for your convenience. 
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Column 1 

Column 2 

Operation 

Selector 

Meaning 

X 

Y 

- 2 

Pen up before moving 

X 

Y 

- 1 

Pen down before moving 

X 

Y 

0 

Pen up after moving (Same as +2) 

X 

Y 

1 

Pen down after moving 

X 

Y 

2 

Pen up after moving 

pen number 

ignored 

3 

Select pen 

line type 

repeat value 

4 

Select line type 

color 

ignored 

5 

Color value 

ignored 

ignored 

6 

Start polygon mode with FILL 

ignored 

ignored 

7 

End polygon mode 

ignored 

ignored 

8 

End of data for array 

ignored 

ignored 

9 

NOP (no operation) 

ignored 

ignored 

10 

Start polygon mode with EDGE 

ignored 

ignored 

11 

Start polygon mode with FILL and EDGE 

ignored 

ignored 

12 

Draw a FRAME 

pen number 

ignored 

13 

Area pen value 

red value 

green value 

14 

Color 

blue value 

ignored 

15 

Value 

ignored 

ignored 

>15 

Ignored 


For more detail on the meaning of these values, see the BASIC Language Reference manual. 

Moves and draws specified in an array to be used in a SYMBOL statement are defined in the 
symbol coordinate system. This coordinate system is a character cell, as defined earlier in the 
chapter—a 9 x 15 rectangle. Figures drawn in this coordinate system may be filled or edged or 
both. The FILL and EDGE keywords may appear in the SYMBOL statement itself, or they may be 
specified in the data array. If FILL and/or EDGE are specified in both places, the instruction in the 
data array overrides that of the statement. 

One interesting feature of this statement is that values outside the character cell boundaries are 
valid. Thus, you can define characters that are several lines high, several characters wide, or both. 
This feature is used in the following program. The SYMBOL statement, by virtue of its syntax, can 
only be used for one User-Defined Character (UDC) at a time; the pen must be moved to the new 
position before each character. Therefore, UDCs cannot be embedded in a string of text. If the 
situation remained this way, the utility of the SYMBOL statement would be limited by its cumber¬ 
some implementation. The following program makes UDCs much easier to use. It is a special- 
purpose program which calls two general-purpose subprograms. The first subprogram (New_udc) 
is called to define a new UDC. Its parameters are: 1) the character to be replaced by the UDC, and 
2) the array defining the character. The second subprogram (Label) is called after all desired 
UDCs have been defined. This allows text to be labelled (written in graphics mode) intermixing 
ASCII characters with user-defined characters at will. As mentioned above, all user-defined charac¬ 
ters are affected by CSIZE, LDIR and LORG, so no matter how the label is being written, the UDCs 
will act properly. 







58 Using Graphics Effectively 


Four characters are defined below: a Greek capital sigma (the summation sign), infinity (a figure 
eight who’s expired), a fat arrow pointing to the right, and a large box. Note that the box is three 
characters wide; it is perfectly legal to have points going outside the 9x15 bounds of the character 
cell. This program may be loaded from file “Symbol on the Manual Examples disc. 


10 

20 

30 

40 

50 

SO 

70 

80 

90 

100 

110 

120 

130 

140 

150 

ISO 

170 

180 

190 

200 

210 

220 

230 

240 

250 

280 

270 

280 


290 

300 

310 

320 

330 

340 

350 

380 

370 

380 

300 

400 

410 

420 

430 

440 

450 

480 

470 

480 

490 


OPTION BASE 1 

COM /Udc/ 01d-chars$[20],Size(20) »Chars(20 ,30 ,3) 
REAL Si*ma(7,3) > Infinity(16>3) * A r r o w(9,3) ,Box(12,3) 


Si 3m a : DATA 7 #5 , -2 , 

DATA 1>13,-1f 
Inf inity: DATA 4, 9, -2, 
DATA 7, 8,-1 > 
DATA 4, 9,-1 , 
DATA 1 ,8,-1 , 
Arrows DAT A 0 ,0,8, 

DATA 4,10,-1 , 
DATA 0,0,7 
Box: DATA 0 ,0,8, 

DATA 0,15,-1 , 
DATA 24,3,-1 , 
01d_chars$="" 


7.4 »-l > 

1 ,4,-1 , 

5.5,8.5,-1 

7 »13 * — 1 t 

7,12,-1 


5 »10 * -1 * 

8,10 , -1 , 

7,9,-1 

1 

r- 

CD 

5,7,-1 , 

4,8,-1 

3,10,-1 , 

2,10,-1 , 

1 ,9,-1 

2,7,-1 , 

3,7,-1 , 

4,8,-1 

4,4,-2, 

7,8,-1 , 

4,12,-1 

1 ,10,-1, 

1 ,8,-1 , 

4 ,8,-1 

3 ,0,-2 , 

27,0,-1 , 

27,15,-1 

0 ,0,-1 , 

3 ,0 , -1 , 

3,3,-1 

24,12,-1 , 

3,12,-1 , 

0 ,0 ,7 


In case anythin* is left in COM from the last 


run 


\ 


/ 


Replace unneeded characters with 
User-Defined Characters 


/ 


New-.udc(CHR$(188) ,Si*ma(*)) 

New.udc(CHR$(189) ,Infinity**)) 

New-udc(CHR$(170) ,Arrow(*)) 

New-.udc (CHR$ (171) ,Box(*) ) 

CONTROL 1,1251 
C$ = CHR$ (255) &:" K" 

OUTPUT 2 USING "# ,K"5C$ 

PRINT "Demonstration of drawin* symbols." 

PRINT "---.---" 

PRINT 

PRINT "Uiew symbols as you wish. Press the SPACEBAR to 3et bacK to BASIC 
PRINT 

PRINT "Press Return or ENTER to run program." 

ON KBD GOTO Exit 
INPUT 0$ 

OUTPUT 2 USING "# ,K"5C$ 

GINIT 

PLOTTER IS 3,"INTERNAL" 

GRAPHICS ON 
SHOW 0,10,-.5,10 
DEG 

FOR Csize=10 TO 2 STEP -1 
CSIZE Csize 

FOR Ldir = 0 TO 90 STEP 90 
LORG 2 
LDIR Ldir 

MODE 10-Csize,10-Csize 

Label*" Chars: ' "*CHR$ (188)&CHR$ (169)&CHR$ (170)&CHR$ (171)&" ,H ) 

NEXT Ldir 
NEXT Csize 
GOTO 480 

Exit: GRAPHICS OFF 


! Use the internal screen 
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500 OUTPUT 2 USING "#>K" 5C$ 

510 CONTROL 1#1252 

520 PRINT "You are back in the BASIC System*" 

530 END 

540 ! *********************************************************************** 

550 New-udc: SUB New-udc(Char$»Array(*)) 

5G0 ! This allows up to twenty new characters to be defined t each hauinsf up 

570 ! to thirty elements (rows in the array) for definition* 

580 OPTION BASE 1 

590 CON /Udc/ 01d-chars$C20]#Size(20) >Chars(20»30»3) 

BOO IF LEN ( 01 d_.cha rs$) = 20 THEN 

BIO PRINT "User-defined Character table full*" 

S20 ELSE ! (still room) 

B30 Pos=LEN(01d_chars$)+l 

S40 01d-chars$CPos]=Char$ 

650 Size(Pos)=SIZE(Array#1) 

SBO FOR Row =1 TO Size(Pos) 

B70 FOR Column=1 TO 3 

G80 Chars(Pos fRow tColumn)=Array(Row tColumn) 

B90 NEXT Column 


700 NEXT Row 

710 END IF ! (room left?) 

720 SUBEND 

730 ! *********************************************************************** 

740 Label: SUB Label(Text$) 

750 ! This prints a character string at the current pen position and usin* 

7G0 ! the current LORG t LDIR and CSIZE* The LORG will need to be redeclared 

770 ! upon returning to the calling context» as this routine needs LORG 1 if 

780 ! the text is longer than one character* 

790 OPTION BASE 1 

800 COM /Udc/ 01d-chars$C203 #Size(20) >Chars(20>30f3) 


810 
820 
830 
840 
850 
8 BO 
870 
880 
890 
900 
910 
920 
930 
940 
950 
9B0 
970 
980 
990 
1000 
1010 


REAL Array(31>3) 

FOR Char=1 TO LEN(Text$) 

IF Char = 2 THEN LORG 1 ! Necessary when doin2 one character at a time 


Char$ = Text$[Char! 1 ] 

Pos = POS(01d_chars$ >Char$) 

IF Pos THEN 

REDIM Array(Size(Pos) t 3) 

FOR Row =1 TO Size(Pos) 

FOR Column=l TO 3 

Array(Row »Co1umn)=Chars(Pos>Row^Column) 
NEXT Column 
NEXT Row 
WHERE X >Y 
SYMBOL A r ray(*) 

MOVE X tY 

LABEL USING "#>K"5" 

ELSE ! (regular character) 

LABEL USING "#»K";Char$ 

END IF ! (this character been redefined?) 
NEXT Char 
SUBEND 


! Is this to be replaced by a UDC? 


Take a slice out 
of the 3D array 
and put it in the 
2D array for 
SYMBOL* 


! Tell the computer to update the pen position 
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Of course, the limits (twenty UDCs and thirty rows maximum) may be reduced or expanded to fit 
whatever purpose for which you need it. Note that in lines 180 through 210 of the program, 
characters 168 through 171 were replaced by the four UDCs. There is nothing magical about these 
four characters. The characters replaced could have been any characters between 0 and 255, and 
they need not be consecutive. 

Also note that in line 450 of the program, there are two spaces after the CHR$(171). This is 
because character 171 was replaced by the box, which was three character cells wide. The two 
extra spaces prevent the right two-thirds of the box from being overwritten by whatever is to be 
labelled after it. 
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In this chapter, we will be discussing the selection of external plotting devices. The PLOTTER IS 
statement will be more thoroughly covered, in addition to dumping graphics images from a CRT to 
a printer. External CRTs (cathode-ray tubes), which may be connected to your computer through 
an HP 98627A interface card, and plotters, which may be connected through the built-in HP-IB 
(Hewlett-Packard Interface Bus) port in the back of your computer, will also be discussed. The 
low-level HPGL commands available on plotters will be covered. Notice that two forms of the 
PLOTTER IS statement are available. One relates to file specifiers. The other relates to device 
selectors. 


Selecting a Plotter 

In Chapter 1, the program listings contained a line which said: 

PLOTTER IS 3 ."INTERNAL" 

This caused the computer to activate the internal CRT graphics raster as the plotting device, and 
thus all subsequent commands were directed to the screen. If you want a plotter to be the output 
device, only the PLOTTER IS statement needs to be changed. If your plotter is at interface select 
code 7 and address 5 (the factory settings), the modified statement would be: 

PLOTTER IS 705."HPGL" 

“HPGL” stands for Hewlett-Packard Graphics Language, and it is the low-level language which the 
plotters actually speak behind the scenes. More about this later. 

If you have an HP 98627A RGB interface connected to a 60 Hz, non-interlaced color monitor 1 , you 
could send the previous displays to it by merely changing the statement to: 

PLOTTER IS 28 ."98G27A" 

In this way, plots which were drawn on one device can easily be plotted on another device with a 
minimum of effort. 

The statements above plot to a device. You can plot to a file. The following statement would cause 
subsequent plotter output to go to a file named Plot. 

PLOTTER IS "Plot:INTERNAL"i"HPGL" 

Plot must be a BDAT file created earlier. Another PLOTTER IS statement, SCRATCH A, or GINIT 
statement closes the file. A Reset also closes the file. 


1 Depending on your choice of color monitor, there may be more specification necessary in the string expression part of the PLOTTER IS 
statement. See the “External Color Displays” section, later in this chapter. 
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There are some limitations, though. If you are doing an operation on one plotting device, and 
attempt to send the plot to another device which does not support that operation, it won’t work. 

For example: area fills, which are valid operations on the internal CRT and external color monitors 
through the HP 98627A, are not available on plotters. Color map operations, which are valid on 
the internal CRT (of the Model 236 Color Computer), are not valid on the HP 98627A, or on a 
plotter. Erasing lines can be done on the internal CRT and the external monitors, but, naturally, not 
on a hard-copy plotter. HPGL commands will be interpreted correctly by a hard-copy plotter, but 
not by the internal CRT or the HP 98627A. 


Dumping Raster Images 

In addition to generating a hard-copy plot with a plotter, as described above, you can dump a 
CRT’s raster image to a printer. This method is called a graphics dump or screen dump. It is 
accomplished by copying data from the frame buffer to a printer to be printed dot for dot. 

First, the image must be drawn on a CRT. Either the internal CRT or a color monitor connected by 
an HP 98627A interface card may be used. Since this technique dumps a raster-type image, it 
prints only dots. Thus, it cannot draw a line, per se, but only the approximation of a line from the 
screen, made up of dots. The dump device “takes a snapshot” of the graphics screen at some point 
in time, and doesn’t care how the dots came to be turned on or off. Thus, filled areas can be 
dumped to the printer; indeed, all CRT graphics capabilities (except color) are available. 

If your printer is an HP 9876, HP 2631G, HP 2671G, HP 2673A or any other printer which 
conforms to the HP Raster Interface Standard, dumping graphics images is trivial. For example: 

100 DUMP DEVICE IS 701 

110 DUMP GRAPHICS 

or simply, 

100 DUMP GRAPHICS #701 


Both of these program segments would take the image in the last specified CRT graphics frame 
buffer (the internal CRT by default) and send it to the printer at address 701. (If no device is 
specified, the image is taken from the last active CRT, whether internal or external.) 701 is the 
default factory setting for printers. You would probably use the two-statement version in an applica¬ 
tion where you wish to specify the destination device once, and have it apply to many different 
DUMP GRAPHICS statements. The one-statement version would probably be used where there 
are few and isolated DUMP GRAPHICS statements. 

The (DUMP GRAPHICS) ( ( Shift ) third unlabeled key above numeric keypad on the HP 46020 keyboard) key 
will also send a graphics display to a printer. If a DUMP DEVICE IS statement has not been executed, 
the dump device is expected to be at address 701. 
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If a DUMP GRAPHICS operation is aborted with the (CLR I/O) (or ( Break ) ) key, the printer may or may 
not terminate its graphics mode. Sending 192 null characters (ASCII code zero) to a printer such as a 
HP 9876 terminates its graphics mode. For example: 

OUTPUT Dump-dev USING "#.K" !RPT$(CHR$( 0 ).192) 

To dump a graphics image from an external color monitor which is interfaced through an 
HP 98627A at address 28, you could type: 

DUMP DEVICE IS Dump.deu 
DUMP GRAPHICS 28 

or, 

DUMP GRAPHICS 28 TO #Dump_dev 


Note 

When dumping an image from an external color monitor to a printer, 
the state of the bit sent to the dump device is determined by doing an 
inclusive OR operation on the three color-plane bits for each pixel. 
Thus, no color information is dumped. 


If you want the image to be twice as large in each dimension as the actual screen size, you can 
specify: 

100 DUMP DEVICE IS 701 .EXPANDED 

110 DUMP GRAPHICS 

This will cause the dumped image to be four times larger than it would be if .EXPANDED had not 
been specified. Each dot is represented by a 2 x 2 square of dots, and the resulting image is rotated 
90° clockwise to allow more of the resulting image to fit on the page. As it is, the image does not fit 
completely on one page of an HP 9876 or HP 2631G printer, but it does fit on a page from the 
HP 2671G or HP 2673A 1 . 

If you have a printer which does not conform to the HP Raster Interface Standard, all is not lost. It 
must, however, be capable of printing raster-image bit patterns. There are two main methods by 
which printers output bit sequences. The first is: when a printer receives a series of bits, it prints 
them in a one-pixel-high line across the screen. The paper then advances one pixel’s distance, and 
the next line is printed. The other method (which lends itself to user-defined characters more than 
graphics image dumping) takes a series of bits, breaks it up into 8-bit chunks, and prints them as 
vertical bars 8 pixels high and one pixel wide. The next eight bits compose the next 1 x 8-pixel bar, 
and so forth. 


1 If the source device is a high-resolution external monitor connected through a HP 98627A or Model 237, the image will not fit on one page of 
these two printers. See the next section, “External Color Displays,” for more detail. 
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This latter method is that used by the HP 82905 printer. The image (which is printed out sideways) 
takes a GSTOREd image and breaks the 16-bit integers into two 8-bit bytes, and sends them to the 
printer one row at a time. This is the reason for the Hi $ and Lo$, the high-order (left) and low-order 
(right) bytes of the current integer. The following subprogram performs the function of a DUMP 
GRAPHICS statement from an internal monochromatic CRT on a Series 200 computer to an 
HP 82905A printer: 


10 
20 
30 
40 
50 
GO 
70 
80 
90 
100 
110 
120 
130 
140 
150 
1 GO 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 


SUB Dump-3 raph i cs ( OPTIONAL De v_.se 1 ecto r-) 


OPTION BASE 1 ! Arrays start at 1 

INTEGER X-Pixels*Y-PixeIs»Words.per_row»Row^ColumntIndex ! Speed it up*** 


DIM Pad$C453 
IF NPAR =1 THEN 

Dev-selector=Dev -.selector. 

ELSE 

D e v _ s e 1 e c t o r = 7 01 
END IF 

IF ABS(RAT 1 0-1*313G24678GG)<1♦E-9 THEN 
X-pixels=512 
Y-.pixe 15 = 390 
ELSE 

X-Pixel5=400 
Y_pixe15=300 
END IF 


P a d d i n sf 

Is output device specified? 
If so* use it 
Otherwise* 

Default to 701 

! 512x390 pixels? 


Words-Per_row=X_pixels/lS ! How many integers per row? 

ALLOCATE Hi$CY-.pixelsl »Lo$CY.pixels] ! Hiah- arid low-order bytes 

ALLOCATE INTEGER Screen(0sY-Pixels#Words-per_row-l) ! Screen array 

Pad$=RPT$(CHR$(0) >45) ! 45 nulls centers the imaSe 

GST0RE Screen(#) ! Store the picture 

Esc$ = CHR$(27)& : "K"&CHR$((Y_pixe1s+45) MOD 256)&CHR$((Y-Pixels+45) DIO 25G) 
OUTPUT Dev- selector USING "K" 5CHR$ (27)&" A"&:CHR$ (8) 

FOR Co 1umn = 0 TO Words-Per-row-1 
FOR Row=Y-Pixe1s-1 TO 0 STEP -1 
Index = Co1umn+Row*No rds-per-row 
Hi $tY- p ixe1s-Rowl= CHR$(I NT <Screen(Index)/256)) 

Lo$[Y-Pixe1s-Row]=CHR$(Sc reen(Index) MOD 25G) 


NEXT Row 

OUTPUT Dev- selector USING "K 11 5Esc$&:Pad$&:Hi$ 
OUTPUT Dev- selector USING "K" 5Esc$&:Pad$&:Lo$ 
NEXT Column 
SUBEND 


Note that on a CRT, an “on” pixel is light on an otherwise dark background, and on a printer, an 
“on” pixel is dark on an otherwise light background. Thus, the hard copy is a negative image of that 
on the screen. To dump light images on a dark background, you can invert every bit in the stored 
image before dumping. You can use the BINCMP function to complement the bits in every word 
before you send the image to the printer, or you could invert the bits of the words by using this 
program segment: 

IF N=-327G8 THEN 
N=32767 
ELSE 
N=-N-1 
END IF 
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The reason for the subtraction is that Series 200 computers use twos-complement representation of 
integers. Also, you must consider — 32768 as a special case because you cannot negate — 32768 in 
an integer; + 32768 cannot be represented in a signed sixteen bit twos-complement number. 

To DUMP GRAPHICS to other types of printers, modify this subprogram appropriately for the 
destination device. 


External Color Displays 

The HP 98627A RGB Interface allows you to connect a color interface to your computer, whether 
the computer’s internal CRT supports color or not. The HP 98627A does not, as mentioned 
before, support color map operations; thus, you cannot change the color of an area on the screen 
without redrawing that area. Nor can you define your own color-addition scheme as you can with a 
color-mapped device (see the Model 236C Color Graphics chapter of this manual). In addition to 
this, there are only eight pure colors 1 ; to get others, you must go to dithering. 

There are many types of color monitors which you can connect to your computer through an 
HP 98627A color monitor interface. In the PLOTTER IS statement, you must specify accordingly: 


Desired Display Format 

Plotter Specifier 

Standard Graphics 

512 by 390 pixels, 

60 Hz, non-interlaced 

"98G27A" or 

"98G27A 5US STD" 

512 by 390 pixels, 

50 Hz, non-interlaced 

"98827A 5EURO STD" 

High-Resolution Graphics 

512 by 512 pixels, 

46.5 Hz, non-interlaced 

"98G27A5HI RES" 

TV Compatible Graphics 

512 by 474 pixels, 

60 Hz, interlaced 
(30 Hz refresh rate) 

"98G27A ?US TV" 

512 by 512 pixels, 

50 Hz, interlaced 
(25 Hz refresh rate) 

"98G27A 5EURO TV" 


The HP 98627A’s display memory is composed of three “color planes” of as many bits as 
necessary to compose a full picture. Following is a description of how the various pen selectors 
affect the operation of an external color monitor. 


1 Only eight pure colors can be created on an external color monitor. This is because there is no control over the intensity of each color gun. 
Each color can be either off or on, and there are three colors: red, green, and blue. Two states, three colors: 2 3 = 8. 
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For the an external color monitor connected through the HP 98627A, pen selectors are mapped 
into the range — 7 through 7 thus: 

If pen selector>0 then use PEN (pen selector — 1) MOD 7 + 1 
If pen selector = 0 then use PEN 0 (complement 1 ) 

If pen selector<0 then use PEN - ((ABS(pen selector) -1) MOD 7 + 1) 

The meanings of the different pen values are shown in the tables below. The pen value can cause 
either a 1 (draw), a 0 (erase), n/c (no change), or complement (invert) the value in each memory 
plane. 

Non-Color Map Dominant Pen Mode 


Pen 

Action 

Plane 1 
(red) 

Plane 2 
(green) 

Plane 3 
(blue) 

-7 

Erase Magenta 

0 

n/c 

0 

-6 

Erase Blue 

n/c 

n/c 

0 

-5 

Erase Cyan 

n/c 

0 

0 

-4 

Erase Green 

n/c 

0 

n/c 

-3 

Erase Yellow 

0 

0 

n/c 

-2 

Erase Red 

0 

n/c 

n/c 

-1 

Erase White 

0 

0 

0 

0 

Complement 

invert 

invert 

invert 

1 

Draw White 

1 

1 

1 

2 

Draw Red 

1 

0 

0 

3 

Draw Yellow 

1 

1 

0 

4 

Draw Green 

0 

1 

0 

5 

Draw Cyan 

0 

1 

1 

6 

Draw Blue 

0 

0 

1 

7 

Draw Magenta 

1 

0 

1 


As mentioned above, different color monitors display different numbers of pixels. To figure the 
array size necessary to GSTORE an image, multiply the number pixels in the X direction by the 
number of pixels in the Y direction, multiply that by the number of color planes (three) and divide 
by sixteen (the number of bits per word). For example, say you want to calculate the array size 
needed for storing an image created on a U.S. standard monitor (see the first entry in the preceding 
table). 512 x 390 x 3 +16 = 37 440 words. However, you cannot specify an array which has any 
more than 32 767 elements in any dimension. To get around ths restriction, what is typically done 
is to make one dimension the number of memory planes (three) and the other dimension the 
number of pixels (512x390+16). Thus, the statement declaring an array for storing an image 
from a “U.S. Standard” external color monitor could look like this: 

INTEGER Imaie(1:12480t1:3) 

If your array is larger than necessary to store an image, it will be filled only to the point where the 
image is exhausted. If your image is larger than your array, the array will be filled completely, and 
the remainder of the image will be ignored. 

The GSTORE and GLOAD statements store the graphics image into this array and load it back into 
graphics memory, respectively. 

1 “Complement” means to change the state of pixels; that is, to draw lines where there are none, and to erase where lines already exist. 












External Graphics Displays and Plotters 67 


HPGL 

Hewlett-Packard Graphics Language (HPGL) is a low-level language that is understood by all 
current HP hard-copy plotters. When you specify: 

PLOTTER IS 705 > "HPGL" 

the plotter specifier "HPGL" notifies the computer that it will be talking with a device which under¬ 
stands HPGL. This causes all the user’s BASIC statements to be converted into HPGL commands 
and sent to the plotter. HP plotters always receive commands in HPGL. 

When you are executing BASIC graphics statements and they are doing operations on a HP plotter, 
there is nothing preventing you from interspersing your own HPGL commands between the BASIC 
commands. HPGL commands can be sent to the device with PRINT statements, after having 
specified the receiving device in a PRINTER IS statement, but the preferred way is to use the 
OUTPUT statement. HPGL command sequences are terminated by a linefeed, a semicolon, or an 
EOI character, which is sent by the HP-IB (Hewlett-Packard Interface Bus) END keyword. Indi¬ 
vidual commands within a sequence are typically delimited by semicolons. 

There are many HPGL commands available, but the exact ones you will be able to use depend on 
the device itself. Plotters are not the only devices which use HPGL; digitizers and graphics tablets 
do also. By their nature, however, they use a different subset of commands than plotters do. 
Following are a few of the more common or useful HPGL commands. 

Controlling Pen Speed 

If your plotter pens are getting old and tired, you probably would want to make them draw more 
slowly to get a better quality line. (In actuality, there are other factors which can affect line quality. 
For example, humidity can alter the line quality of a fiber-tipped pen.) To accomplish this, you 
could have a statement: 

OUTPUT 705i"VS 10 11 

“VS” stands for “Velocity Select” and the “10” specifies centimeters per second. Thus, this 
statement would tell the plotter to draw at a maximum speed of ten centimeters per second. It 
specifies a maximum speed rather than an only speed, because on short line segments, the pen 
does not have time to accelerate to the specified speed before the midpoint of the line segment is 
reached and deceleration must begin. The range and resolution of pen speeds, and default max¬ 
imum speed depend on the plotter. 

Controlling Pen Force 

On the HP 7580 and HP 7585 drafting plotters, you can specify the amount of force pressing the 
pen tip to the drawing medium. This is useful when matching a pen type (ball-point, fiber-tip, 
drafting pens, etc.) to a drawing medium (paper, vellum, or mylar, etc.). Again, if a pen is partially 
dried out, it may help line quality to adjust the pen force. 

An example statement is: 

OUTPUT 705 i "FS3 »Bi" 

This statement (Force Select) would specify that pen number 6 should be pressed onto the drawing 
medium with force number 3. As you can see, the force specifier occurs first, the pen number 
second. The reason for this is that if you do not specify a pen number, all pens will be affected. 
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The force number is translated into a force in grams. If, for example, you have an HP 7580A 
plotter, the force number is converted to force as follows: 


1 = 10 grams 

2 = 18 grams 

3 = 26 grams 

4 = 34 grams 


5 = 42 grams 
6-50 grams 

7 = 58 grams 

8 = 66 grams 


Selecting Character Sets 

Some plotters contains internal character sets which may be much more pleasing to the eye or 
more appropriate for your application than the character set provided by the BASIC operating 
system. Through HPGL, you can tell the plotter to use these character sets. 

OUTPUT 705 i"CSl" 


tells the plotter to use character set 1 until further notice. This means, however, that to actually get 
these characters, you cannot use the label statement in BASIC. This is because the BASIC 
graphics system generates all its characters as a series of line segments, and the plotter can’t tell 
when it is told to draw a line segment whether it is going to be part of a character or not. Thus, 
you must use the HPGL label command, LB: 

OUTPUT 705i"LBThis is an example strinS."&CHR$(3) 


CHR$(3) is the End-of-text or ETX character. It is the default terminator for the LB command. If 
you wish, you can specify other characters to signal the end of a line of text to label. You use the 
Define Terminator command: 

OUTPUT 705! "DT&" 


This statement instructs the plotter to consider the ampersand to be the terminator. Thus, every LB 
command must have an ampersand as the final character. 


Note 

When using a printable ASCII character as the terminator, it will be 
labelled in addition to terminating the L B command. 


Note 

There must be a terminator as the final character in the string to indicate 
the end of the text, or all subsequent commands will be considered text 
and not commands; that is, they will merely be labelled, not executed. 
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Error Detection 

When using HPGL commands, there is always a possibility of making an error. When this occurs, 
the program should be able to respond in a friendly way, and not just hang then and there. With 
HPGL, it is possible to interrogate the plotting device and determine the problem. The following 
statements in an error-trapping routine would determine the type of error that occurred: 

OUTPUT 705 5 "0E i" ENTER 705iError 

After these two statements have executed, the variable Error will contain the number of the most 
recent error. What the error code means depends on the particular device being used. 

This is not by any means an exhaustive list of HPGL commands, but it serves to acquaint you with 
the concept of using the HPGL language, and the amount of control it gives you over the peripheral 
device. A thorough understanding of HPGL can only be gotten by combining information from the 
owner’s manual of the particular device you have with actual hands-on experience. 
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Introduction 

It has already been pointed out that graphics is a very powerful tool for communication. The high 
speed available from Series 200 computers makes possible a powerful mechanism for communicat¬ 
ing with the computer: Interactive Graphics. 

One way to understand interactive graphics is to see it in action. If your computer has a knob, 
LOAD and RUN the program “BAR_KNOB”, from your Manual Examples disc. If you turn the 
knob clockwise, the bar graph displayed on the screen will indicate a larger value. At the same time, 
the numeric readout underneath the bar will increase its value. Turning the knob counterclockwise 
has the opposite effect. This is an effective demonstration of all the key characteristics of an 
interactive graphics system. They are: 

• A data structure. (The value displayed underneath the bar is the contents of a variable that we 
are modifying. The internal variable containing the value is considered a degenerate case of a 
data structure.) 

• A graphic display that represents the contents of the data structure. (The bar graph and the 
numeric display represent the value of the internal variable.) 

• An input mechanism for interacting with the displayed image (the knob, in this case.) 

This is the minimum set of requirements for an interactive graphics system. A key feature of 
interactive graphics is that it is a closed loop system. This means that the operator can immediately 
see the effect of his action on the system, and thus base his next action not only on the state of the 
system, but also on the effect his last action had on the system. A few points are worth noting about 
this system: 

• The knob is used because it is functionally appropriate. While we could have used softkeys or 
entered numeric values to control the bar graph, the knob “feels” right. We are used to using 
knobs to control bar graph metered readouts. Of course, this assumes you have a knob or a 
mouse (HP 46060). 

• Control of the value with the knob is fairly intuitive. The normal range markings make it readily 
apparent when the value is in range. Little explanation is needed, due to the immediate 
feedback from the displayed image. 

• A system is “modeled.” The user’s input must have a well defined relation to the output of the 
system. 

Interactive graphics can be as simple as representing a single value on the screen and providing the 
user a method for interacting with it. It can be as complex as a Printed Circuit layout system. This 
chapter will not tell you how to build a Printed Circuit layout system, but it will provide some hints 
on implementing interactive graphics systems that work. 








72 Interactive Graphics and Graphics Input 


Characterizing Graphic Interactivity 

One of the most important things in designing a good interactive graphics system is characterizing 
the interaction with the system correctly. Properly characterizing the interactivity allows selection of 
the most appropriate device for interaction with the system. Three things have to be considered in 
characterizing the interaction: 

• The number of degrees of freedom in the system. This is the number of ways in which a system 
can be changed. 

• The quality of each of the degrees of freedom. This describes how the input to a degree of 
freedom can be changed. 

• The separability of the degrees of freedom. 

The BAR_KNOB program has limitations in these regards. Read on to see why. 


Selecting Input Devices 

The purpose of the discussion on characterization of graphic interaction was to lay the groundwork 
for discussing when various input devices are appropriate. There are several available to the Series 
200 computers, and choosing the correct one is critical to the design of a highly productive human 
interface for an interactive graphics program. 

Single Degree of Freedom 

Many interactive graphics programs need deal only with a single degree of freedom. The appropri¬ 
ate control device for such programs depends on whether continuous control or quantizable control 
is needed. 

The program “BAR_KNOB” is a good example of a single degree of freedom that is continuous. 
The knob is ideal for controlling a program like this. If “fine tuning” is needed, the shift key can be 
used as a multiplier to change the interpretation of the knob. It is also possible to use the softkeys for 
fine tuning. 

Softkeys can be used for quantizable control of a degree of freedom. It is also possible to use 
keyb oard en try of num eric values for quantizable inf ormat ion. Reme mber that softkey labels range 
from ( /I ) to ( f8 ) on some keyboards and from ( kp ) to ( k 9 ] on others when you use ON 
KEY statements. Also, if you have a keyboard which provides menus for SYSTEM, USER1, 
USER2, and USER3, CONTROL Register 2 (of select code 2) enables you to switch from one 
menu to another. For example, control 2t2il displays the menu for USER1. CONTROL 2*250 
displays the SYSTEM menu. Use a 2 or 3 for USER2 or USER3. 
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Non-separable Degrees of Freedom 

One characteristic of multiple, non-separable degrees of freedom is that they are generally con¬ 
tinuous. The most common operation of this type is free-hand drawing. This is most easily accom¬ 
plished with the HP 9111A graphics tablet. 

Separable Degrees Of Freedom 

In many programs, the degrees of freedom are completely separable. In fact, for some operations, it 
is definitely preferable to have totally independent control of the degrees of freedom of the model. 

All Continuous 

If all the degrees are continuous, a good choice is using the softkeys to select the degree of freedom 
and then using the knob to control the input to that degree of freedom. This is not as effective as a 
bank of knobs, but adding a bank of knobs means adding hardware (a voltmeter, power supplies, 
and potentiometers). 

All Quantizable 

If all the degrees are quantizable, using softkeys is ideal. 

Mixed Modes 

In most sophisticated graphics systems, several degrees of freedom in the system interact with each 
other. A good example is a graphics editor. In a graphics editor, your primary interaction is with a 
visual image, and the degrees of freedom (X and Y location) for that operation are partially 
separable, at best. (They are non-separable if it supports freehand drawing.) There is also a degree 
of freedom involved in controlling the program. The program control is strongly separable from the 
image creation operation. 

The most appropriate device for supporting mixed modes is the HP 9111A Graphics Tablet. The 
tablet supports two modes of interaction by partitioning the digitizing surface into two areas. Sixteen 
small squares along the top of the tablet are used as softkeys to provide a control menu. The large, 
framed area underneath the softkeys is the active digitizing area. The active digitizing area is used 
for interacting with the image you are creating. 

It is possible to combine the quantized, separable control operations with continuous, non- 
separable image editing. This is done by using the active digitizing area for interacting with the 
image and using the menu area for controlling the operations available in the editing program. The 
operator does not have to change control devices to access the different interaction modes. 
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Echoes 

An important part of interactive graphics is letting the operator know “where he is at.” This can be 
done by updating the image (as in “BAR_KNOB”.) In other operations, such as menu selection, 
object positioning, and freehand drawing, it is important to show the operator where he is. In many 
cases, this can be done with the SET ECHO statement. 

The Built In Echo 

Many graphics applications can be handled using the built in echo. Executing TRACK...IS ON sets 
up the system to track the graphics input device with the built in echo during a DIGITIZE. The 
following program shows how to do single-point digitizing with the built in echo. 


100 

GINIT 

j 

Restore defaults 

110 

GRAPHICS INPUT IS 70S >"HPGL" 

! 

9111 is input 

120 

PLOTTER IS CRT >":INTERNAL" 

I 

(Redundant) 

130 

TRACK 3 IS ON 

j 

Enable tracking 

140 

! 



150 

GRAPHICS ON 



1G0 

UIEWP0RT 0>133»0>100 

j 

Match aspect ratios 

170 

WINDOW -50*50*-20*20 

| 

Define GDUs 

180 

FRAME 

I 

Draw bounds 

190 

AXES 10*10*0*0*5*5 

j 

Draw axes 

200 

M0UE 0*0 

j 

Be 2in at origin 

210 

j 



220 

j 



230 

Track: DIGITIZE X»Y*Status$ 

! 

Request coords 

240 

! updating cursor until 

coords received 

250 

j 



2G0 

DRAW X *Y 

I 

Connect points 

270 

! 



280 

GOTO Track 



290 

j 



300 

END 




The TRACK...IS ON statement merely enables the tracking feature; the actual tracking is performed 
while the DIGITIZE statement is being executed. The locator is “tracked” by moving the output 
device’s “cross-hair” (or pen) correspondingly. Notice that the definition of the DIGITIZE statement 
has been modified slightly—now its execution causes the locator to be tracked and “echoed” on 
the output device until the stylus (or Digitize button) is pressed. 

After the stylus is pressed, the DIGITIZE statement has finished execution and the DRAW statement 
is executed. This program draws lines between the digitized points, but you may want to change 
this response as desired with the appropriate software. 

If accuracy is not exceptionally important, you can do continuous digitizing with the READ LOCA¬ 
TOR statement. 

The READ LOCATOR and SET ECHO statements are used in order to determine the input 
device’s locator position and to echo the position on the output device, independent of the Digitize 
button being pressed. The following program shows an example of implementing this graphics 
capability in a BASIC program. 
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100 

GINIT 


i 

Restore defaults 

110 

GRAPHICS INPUT IS 70S*"HPGL" 


! 

Define in p ut 

120 

PLOTTER IS CRT *"INTERNAL" 


! 

Define output 

130 

GRAPHICS ON 




140 

VIEWPORT 0*133 *0*100 


j 

Match aspect ratios 

150 

WINDOW 0*100*0*100 


! 

Define UDUs 

1 GO 

FRAME 


! 

draw limits 

170 

j 




180 

LOOP 




190 

READ LOCATOR X»Y*Status$ 




200 

SET ECHO X *Y 




210 

Button$=Status$[1*11 




220 

G0SUB Action 




230 

END LOOP 




240 

j 




250 

Action: IF Button$="0" THEN 

MOVE 

X * Y 


280 

IF Bu11on$ ="1" THEN 

DRAW 

X *Y 


270 

RETURN 




280 

! 




290 

END 





The preceding program continuously tracks the input locator and monitors the pressed/not-pressed 
status of the Digitize button (or stylus). The cursor position is continuously echoed on the output 
device, and lines are drawn if the Digitize button (or stylus point) is pressed. 

Making Your Own Echoes 

In some applications, the crosshair generated by SET ECHO is not sufficient. You may want to 
generate a rubber band line or box. A rubber band line is stretched from an anchor point to the 
echo position. In these cases, it is necessary to draw your own echo. 

Since an echo needs to be repositioned as the operator interacts with it, it must be constantly drawn 
and redrawn. If it is just drawn and then erased, the background it is drawn over will soon become 
littered with erased images of the echo. What we really want to do is find a way to draw it and then 
“undraw” it, rather than erasing it. The complementary drawing mode is used to do this. In the 
complimentary drawing mode, the bits specified by the current pen selector are complimented in 
the frame buffer, rather than just overwriting the contents. If a second complimenting is done, the 
image is restored to whatever was there before the echo was written to it. The echo generated by 
SET ECHO is automatically drawn in the complimentary mode. 

It is important to remove any echo you have drawn on the screen before updating the image. The 
complimenting of a bit pattern does not restore the image if the image was altered between the 
complimentary drawing and undrawing. This is done automatically by SET ECHO, but you must 
handle it yourself if you are building your own echoes. The following loop will support a tablet with 
several different echoes, when used with the echo routines discussed below. 


570 

LOOP 

! Main Tracking Loop 

580 

READ LOCATOR Xin*Yin 


590 

DISABLE 


GOO 

CALL MaKe-echo(Xin *Yin»Echo_type> 

! Several Echo Types 

810 

ENABLE 


S20 

END LOOP 
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Two sets of echo routines are provided, one set for monochrome and one set for color systems. 
Both a KilLecho and a Set_echo routine are provided for each case. 


Monochrome Echoes 

The complimentary drawing mode can be accessed for making your own echo by selecting PEN 0. 
The subroutines which follow used to implement rubber band line and rubber band box echoes. Be 
aware that the subroutines would be a part of some greater program that you create. The intent is to 
demonstrate techniques. 


2920 Kill-echo:SUB Kill-echo 

2930 !a*#*********#***********#***#*##***#*****####********#*#*#*##** 

2940 !* * 

2950 !* This routine 3ets rid of whatever echo is left over on the * 

29G0 !# screen* # 

2970 !* # 

2980 !a*****#*****#*****#****#*************###**#**#***##***#*##*#*#* 

2990 ! 

3000 COM /Echo-local/ Last-x»Last-y,Last-anchor-x,Last-anchor_y 
3010 COM /Echo-local2/ Last-pen ,Last_echo_type 

3020 COM /Echo-.s(lobal/ Echoed rawn ,Ancho r-x ,Ancho r_y 
3030 COM /Booleans/ INTEGER True,False 

3040 COM /M o d a 1s/ INTEGER Dra w mode, Normal*Com pie ment,Current-Pen, 
Current-.fi 11 

3050 COM /Echo — Global 1/ Rub ber_line ,Cross ,Rub ber-box 
3060 ! 

3070 PEN 0 

3080 SELECT Last_ech 0 -type 

3090 CASE Rubber-line 

3100 M00E Last_anchor_x ,Last-anchor-y 

3110 DRAW Last-x,Last-*/ 

3120 CASE Rubber-box 

3130 M00E Last-anchor-x ,Last-anchor«y 

3140 RECTANGLE Last-x-Last-ancho r-x ,Last-y-La 5 t_ancho r-y 

3150 CASE ELSE 

3180 END SELECT 

3170 Echo-drawn=False 

3180 PEN 1 

3190 SUBEND 

3200 ! 


3210 

3220 

3230 

3240 

3250 

3280 

3270 

3280 

3290 


Make_echo:SUB Make-echo(X,Y, Echo-type) 

!a**#**************#*******#******#*****#*##**##**#**#*#*##*#**##*#* 
!* * 
!* This routine makes the an echo of the current Echo-type at the * 
!* specified (X,Y) location* It also updates the variables for * 
!* the Kill-Echo Subprogram* # 
!* * 
!a****************************************************************** 


3300 COM /Echo-local/ Last.x , Last-y, Last-anchor-x,Last-an ohor-y 
3310 COM /Echo-local2/ Last-pen,Last_echo-type 

3320 COM /Echo_$lobal/ Echo-drawn ,Anchor_x ,Anchor»y 

3330 COM /Booleans/ INTEGER True,False 

3 3 4 U COM /M o d a 1s/ INTEGER D r a w m o d e , N o r m a 1 , C o m p1e m e n t,C u r r e n t-pe n, 

Cu rrent-fi11 

3350 COM /Echo — Global 1/ Rub ber-1ine ,Cross,Rub ber-box 
3360 COM /Bounds/ Max-diP-y 


3370 
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3380 

3390 

3400 

3410 

3420 

3430 

3440 

3450 

3480 

3470 

3480 

3490 

3500 

3510 

3520 

3530 


IF Echo-drawn THEN CALL Kill-echo 


IF Y<Max-cliP-y THEN 
PEN 0 

9ELECT Echo-type 
CA9E Rubber-line 


MODE Anchor-X»Anchor-y 


DRAW XfY 
CASE Rubber-box 


MODE Anchor-x»Anchor_y 


RECTANGLE X-Anchor-x#Y-Anchor-y 
CASE ELSE 
END SELECT 
SET ECHO X >Y 
Las t_x = X 
Last-'/ = Y 
Echo-d rawn = True 


3540 END IF 

3550 SET ECHO X >Y 

3560 Last_echo-type=Echo-type 

3570 Last-ancho r-X = Ancho r-x 

3580 Last-anchor-y=Anchor.y 

3590 PEN 1 

3800 SUBEND 

Color Echoes 

Accessing the complementary drawing mode is slightly different in color. The complimentary 
drawing mode can be accessed for making your own echo by specifying a negative pen number 
after a GESCAPE to select the non-dominant writing mode (operation selector of 5).) The sub¬ 
routines are used to implement rubber band lines, and have hooks in place for rubber band boxes, 
complement has been initialized to 5, and Drawmode contains the current drawing mode. Again, 
remember to study the subroutine listing to examine programming techniques. 

3900 Ki11_eoho:SUB Kill-echo 

9910 !****************************************************************** 

9920 !* * 

9930 !* This routine Sets rid of whatever echo is left over on the 

9940 !* screen. * 

9950 !* * 

9960 I*##########*#########***#**##***#**##**###************************ 

9970 ! 

9960 COM /Eoho_looal/ Last.x .Last.y ,Last_anchor_x ,Last_anchor_'/ 

9990 COM /Echo_local2/ Last-pen,Last_echo_type 

10000 COM /Echo_slobal/ Eoho_d rawntAnchor_x .Anchor_v 

10010 COM /Booleans/ INTEGER True .False 

10020 COM /Modals/ INTEGER D rawmode .Normal .Complement.Current_pen. 

Cur rent_fi11 

10030 COM /Echo_3loball/ Rubber_line .Cross .Rubber_box 

10040 ! 

10050 GE9CAPE 3 .Complement 

10060 IF Last_pen<>0 THEN 

10070 PEN -Last_pen 

10080 ELSE 

10090 PEN -1 

10100 END IF 

10110 5ELECT Last_echo_type 

10120 CASE Rubber-line 

10130 MODE Last-anchor_x .Last-anchor_y 
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10140 

DRAW Last_x*Last_y 


10150 

CASE ELSE 


101 GO 

END SELECT 


10170 

GESCAPE 3»Drawmode 


10180 

PEN Current-pen 


10190 

Echo-draw n = F a 1 s e 


10200 

SUBEND 


10210 

| 


10220 

Make-echo:SUB Make-echo(X t Y>Echo-type) 


10230 

!**********#******#*#*#*###*##*######*##########**###*#############*.# 

10240 

! # 

# 

10250 

!* This routine makes the an echo of the current Echo-type 

at the * 

10260 

!* specified (XtY) location. It also updates the variables 

for * 

10270 

!* the Kill-Echo Subprogram. 

* 

10280 

!* 

* 

10290 


10300 

! 


10310 

COM /Echo-1ocal/ Last-x t Last_y*Last-anchor-x »Last-anchor-y 


10320 

COM /Echo-local2/ Last_pen>Last-echo-type 


10330 

COM /Echo_*lobal/ Echo-d rawn »Ancho r-x »Ancho r_y 


10340 

COM /Boo 1eans/ INTEGER True,False 


10350 

COM /Modais/ INTEGER Drawmode ,No rmal >Complemerit »Cur rent pen t 


Cu r rent-fi11 


10380 

COM /Echo — Global 1/ Rub ber_line,Cross»Rubber_box 


10370 

COM /Bounds/ Max-clip-y 


10380 

! 


10390 

IF Echo-drawn THEN CALL Kill-echo 


10400 

IF Y<Max-cliP-y THEN 


10410 

GESCAPE 3 f Complement 


10420 

IF Current_pen<>0 THEN 


10430 

PEN -Current-pen 


10440 

ELSE 


10450 

PEN -1 


10480 

END IF 


10470 

SELECT Echo-type 


10480 

CASE Rubber-line 


10490 

MODE Anchor-x t Anchor-y 


10500 

DRAW X , Y 


10510 

Echo-d rawn = T rue 


10520 

CASE Cross 


10530 

CASE ELSE 


10540 

END SELECT 


10550 

GESCAPE 3»Drawmode 


10580 

SET ECHO X »Y 


10570 

Las t_x = X 


10580 

L a s t - y = Y 


10590 

END IF 


10800 

SET ECHO X »Y 


10610 

Last_echo_type=Echo_type 


10620 

Last-ancho r-x = Ancho r-x 


10630 

Last_anchor-y=Anchor-y 


10840 

L a s t _ p e n = C u r r e n t - p e n 


10650 

PEN Current-pen 



10B60 SUBEND 
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Graphics Input 

In many interactive graphics applications the tablet is used as an echo mover. The transformation 
between the graphics tablet and the display should be linear in such applications, but the axes do 
not have to transform through the same scaling. It doesn’t matter if a square on the tablet represents 
a square on the display if you are just using the tablet to move a crosshair on the display. However, 
if you are trying to copy an image from paper to the display (using a graphics tablet) it is important 
to preserve both the linearity and the aspect ratio in the transformations. 

The maximum usable area of a graphics device is bounded by its hard clip limits, for example, the 
pen cannot be made to draw outside these limits on an output device. 

The current usable area is bounded by the rectangle defined by the points PI and P2; the lower-left 
corner is PI, and the upper-right corner is P2. On many devices, these points can be moved 
manually or by the program. 

When the GINIT statement or a PLOTTER IS statement is executed, points PI and P2 are read 
from the plotting device; with GINIT, the plotting device is assumed to be the internal CRT. The 
value of RATIO is then set to the result of the following calculation: 

RATIO = (P2x - Plx)/(P2y - Ply) 

The operating system then automatically scales the P1,P2 rectangle. When GINIT is executed, the 
following VIEWPORT and WINDOW statements are executed, scaling the rectangle in Graphic 
Display Units and User Defined Units, respectively. 

If RATIO> = 1: If RATICX1: 

VIEWPORT 0»100*RATI0»0.100 VIEWPORT 0»100»0tlOO/RATIO 

WINDOW 0 il00*RATI0t0tlOO WINDOW 0»100>0»100/RATI0 

As seen above, the X and Y coordinates of PI are always both 0 Graphic Display Units. The default 
Graphic Display Unit coordinates of P2 depend on the device; however, the smaller coordinate of 
this point is always 100 Graphic Display Units. Two examples are shown below: 


lOOGDUs 


133 GDUs - 


P2 

(100.133) 


MODEL 226 
CRT Graphics Raster 


Pi 

( 0 , 0 ) 


Usable-Area Boundaries: 


r 




100 GDUs 


□ □□□ □□□□ □□□□ □□□□ 


Default P2 
(100.141) 


HP 9111 

Graphics Tablet Platen 


Default PI 
# ( 0 . 0 ) 


V 


141 GDUs 


J 


Left edge = X coordinate of PI Right edge = X coordinate of P2 

Bottom edge = Y coordinate of PI Top edge = Y coordinate of P2 


Default Locations of PI and P2 on the Model 226 and HP 9111 
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When a PLOTTER IS statement is executed, the locations of points PI and P2 on the specified 
device are determined. The current VIEWPORT statement parameters are then used to define the 
physical area (in GDUs) which is to be scaled (in UDUs) by the WINDOW or SHOW statement 
currently in effect. 

When a subsequent GRAPHICS INPUT IS statement is executed, the operating system attempts to 
apply the current VIEWPORT and WINDOW (or SHOW) parameters to the P1,P2 rectangle of the 
input device. In the preceding example, the two usable areas are not identical in size (in Graphic 
Display Units), since the HP 9111 has a smaller horizontal-to-vertical aspect ratio. This difference in 
aspect ratios may produce two types of potentially undesirable results when using these two 
devices together for interactive graphics capabilities. The GRAPHICS INPUT is sets the hard clip 
limits of the input device to the largest space possible that has the same aspect ratio as the output 
device. 
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Model 236 Color Computer 
Color Graphics 


Chapter 

~ 5 ~ 


Color ! 

Color is the reason for buying a Model 236 Color Computer. Color can be used for emphasis, for 
clarity, and just to present visually pleasing images. Color is a very powerful tool, and it follows 
directly that it is very easy to misuse. Be careful in using color, and it will serve as a valuable tool for 
communication. Misuse it, and it will garble the communication. 

The biggest benefit of the Model 236 Color Computer is that it makes experimenting with color so 
easy. With a bit-mapped frame buffer and a color map, it is easy to test out ideas before you use 
them. It is also possible to use the color map for simple animation effects and some just plain 
impressive images. 


Note 

Most operations are valid only on the Model 236 Color Computer. 
Some can be accessed via an HP 98627 Color Interface Card. Focus on 
techniques as you read the chapter and relate them to your pro¬ 
gramming situation. 


Non-Color Mapped Color 

When PLOTTER IS 3*"INTERNAL" or PLOTTER IS 28* "98827A" is executed, 8 colors are available 
through the PEN and AREA PEN statements. The colors provided are: 

• Black and White 

• Red, Green, and Blue (the additive color primaries ) 

• Cyan, Magenta, and Yellow (the complements of the additive color primaries) 
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The colors can be selected the same way they are for an external plotter, with the PEN statement. If 
all you are after is highlighting a portion of a graph or chart, this may be all the color that you need. 
In this mode, the Model 236 Color Computer color graphics system exactly simulates that of the 
HP 98627A Color Interface Card. The colors and their pen-selectors are listed below: 

Default Non-Color Map Values 


Pen 

Value 

Color 

Color Map 
Index 

0 . 

Black. 

0 

1 . 

White. 

7 

2 . 

Red. 

1 

3 . 

Yellow. 

3 

4. 

Green. 

2 

5. 

Cyan. 

6 

6. 

Blue. 

4 

7 . 

Magenta .... 

5 

8 . 

White. 

8 

9 . 

White. 

9 

10 . 

White. 

10 

11 . 

White. 

11 

12 . 

White. 

12 

13 . 

White. 

13 

14 . 

White. 

14 

15 . 

White. 

15 


If you are in this mode, you can draw lines in the eight colors listed above. It is possible, however, to 
fill areas with other shades. These tones are achieved through dithering. 

Dithering produces different shades by combining dots of the 8 colors described above. The screen 
is divided up into 4-by-4 cells and patterns of dots within the cells are turned on to match, as closely 
as possible, the color you specify. Dithered colors are defined with the AREA COLOR and AREA 
INTENSITY statements. The color models available are discussed below, under “Color Specifica¬ 
tion.” (The actual color matching process used in dithering is described under “Dithering and the 
Color Map.”) Filling is specified by using the secondary keyword FILL in any of the following 
statements: 

IPLOT PLOT POLYGON 

RECTANGLE RPLOT SYMBOL 

If you are trying to define a complex human interface, you will need more colors and more control 
over the colors. The system described in the rest of this chapter (except for dithering) is available 
only after you turn on the color map. To do so, execute: 

PLOTTER IS 3," INTERNAL"iCOLOR MAP 
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The Frame Buffer 

The Model 236 Color Computer has bit-mapped color graphics. An area in memory called a frame 
buffer provides 4 bits of memory for each pixel location. (The number of bits available for describ¬ 
ing each pixel is sometimes called the depth of the frame buffer.) A 4 bit frame buffer allows each 
pixel location to contain a number between 0 and 15 (inclusive). Thus the Model 236 Color 
Computer can display lines in 16 different colors on the CRT, simultaneously. At any given time, 
the values written to the frame buffer fall into four categories: 

• Background Value - Whenever GCLEAR is executed, all the pixel locations in the frame buffer 
are set to 0. Thus, 0 is the background color. 

• Line Value - The PEN statement is used to determine the value written to the frame buffer for 
all lines drawn. This includes all lines (including characters created by LABEL) and outlines 
(specified by the secondary keyword EDGE.) 

• Fill Value - The AREA PEN statement is used to specify the value written to the frame buffer for 
filling areas (specified by the secondary keyword FILL.) 

• Dithered Colors - AREA INTENSITY and AREA COLOR can be used for specifying a fill color, 
but the results can be surprising when the COLOR MAP option has been selected (see 
“Dithering and Color Maps”, below.) In addition, the dithered colors have a tendency to 
introduce texturing into the areas and may not accurately reproduce the color you specify. 

The PEN, AREA PEN, AREA INTENSITY, and AREA COLOR statements control what are refer¬ 
red to as modal attributes. This means that the value established by one of the statements stays in 
effect until it is altered by another statement. (GINIT alters all of them.) 

Erasing Colors 

Erasing is a fairly simple concept in frame buffers that are a single bit deep. You just restore the 
background by setting the portion of the frame buffer you wish to erase to 0. The concept is a little 
more complex in frame buffers with more depth (such as the Model 236 Color Computer.) As long 
as the graphics system is in the dominant writing mode (see “Non-Dominant Writing”, below,) 
there are three ways of erasing: 

• The easiest is GCLEAR. However, GCLEAR destroys the entire image. If you want to erase 
only part of the image, it is necessary to be more precise. 

• If you know the pen used to write the line, you can use a negative pen selector of the same 
magnitude. This will erase the pen value from the frame buffer. (It works for PEN and AREA 
PEN.) 

• If you don’t know the pen used to create the image, you can overwrite the image with the 
background color. This can be PEN 0, or, if you are on a filled area, whatever pen the area was 
filled with. A fairly simple extension of this is to use the RECTANGLE statement to implement 
a local GCLEAR to erase portions of the screen. 
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Default Colors 

Throughout the discussion of the frame buffer, only values were talked about. If you do not modify 
the color map (see the next section for how to do that) the colors selected by the PEN and AREA 
PEN values depend on the default color map values, which are: 

Default Color Map and Pen Values 


Value 

Color 

0 

Black 

1 

White 

2 

Red 

3 

Yellow 

4 

Green 

5 

Cyan 

6 

Blue 

7 

Magenta 

8 

Black 

9 

Olive Green 

10 

Aqua 

11 

Royal Blue 

12 

Maroon 

13 

Brick Red 

14 

Orange 

15 

Brown 


The Primary Colors 

The lower eight pens of the default color map are the same as are available without enabling the 
color map, but they do not write the same value into the frame buffer (see the PEN statement in the 
BASIC Language Reference.) The colors are: 

• Black and White (the extremes of no-color) 

• Red, Green, and Blue (the additive primaries) 

• Cyan, Magenta, and Yellow (the complements of the additive primaries - which happen to be 
the subtractive primaries) 

The Business Colors 

The upper 8 colors (8 through 15) were selected by a graphic designer to produce graphs and 
charts for business applications. The colors are: 

• Maroon, Brick Red, Orange, and Brown (warm colors) 

• Black, Olive Green, Aqua, Royal Blue (cool colors) 

These colors are one designer’s idea of appropriate colors for business charts and graphs. They 
were chosen to avoid clashing with each other. A technique for using them is described under 
“Color Hard Copy” in the “Color Spaces” section at the end of this chapter. 

It is possible to use the Model 236 Color Computer with the default color map. The color used will 
depend directly on the value in the frame buffer. This is fine if the work you are doing can be 
accomplished using the 16 colors supplied as the system defaults. This is often not the case, and this 
overlooks one of the most powerful features of the Model 236 Color Computer - the color map. 
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The Color Map 

The color-mapped system uses the value in the frame buffer as an index into a color map. The color 
map contains a much larger description of the color to be used (12 bits in the Model 236 Color 
Computer) and, just as importantly, the color description used is indirect Thus, the value in the 
frame buffer does not say “use color 12”, but rather “use the color described by register number 
12”. 


F r ame Bu -FT e r 


Red Green Blue 



Display 


15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 

0 











1001 

1 100 

1011 






































Color Map 
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Color Map 

The CRT refresh circuitry reads the value from the pixel location in the frame buffer, uses it to look 
up the color value in the color map, and displays that color at that pixel location on the CRT. Thus, 
it is possible to draw a picture with a given set of colors in the color map (a set of colors is called a 
palette) and then change palettes and produce a new picture by redefining the colors, rather than 
having to redraw the picture. (The binary numbers in the color map are created by the system. The 
user deals with normalized values, as described under “Color Specification. ) 
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Color Specification 

The SET PEN statement is used to control the values in the color registers in the color map. The 
SET PEN statement supports two color models for selecting the color each pen represents, the RGB 
(Red, Green, Blue) model and the HSL (Hue, Saturation, Luminosity) model. Since the color 
models are dynamically interactive, it is much easier to understand them by experimenting with 
them. 

The RGB Model (Red, Green, Blue) 

The RGB model can be thought of as mixing the output of three light sources (one each of Red, 
Green, and Blue). The parameters in the model specify the intensity of each of the light sources. 
The RGB model is accessed through the secondary keyword INTENSITY with the SET PEN 
statement. The RGB model is closest to the actual physical system used by the Model 236 Color 
Computer. The Red, Green, and Blue values represent the value modulating the electron guns that 
excite the colored phosphors on the Model 236 Color Computer CRT. The values are normalized 
(range from 0 through 1). The normalized values are converted to 4 bit binary numbers to store in 
the color-map. Each of the values is used to control a 4-bit digital-to-analog converter, providing 16 
intensity levels from full-off to full-on for each of the colors. Thus, 

SET PEN 0 INTENSITY 7/15.7/15.7/15 

sets pen 0 (the background color) to approximately a “50%” gray value. (Whenever all the guns 
are set to the same intensity, a gray value is obtained.) It is simpler to think in l/15ths and let the 
computer do the conversion to a decimal fraction, since the intensity parameters can be numeric 
expressions. The parameters for the INTENSITY mode of SET PEN are in the same order they 
appear in the name of the model (Red, Green, Blue). 

The HSL Model (Hue, Saturation, Luminosity) 

The HSL model is closer to the intuitive model of color used by artists, and is very effective for 
interactive color selection. The three parameters represent hue (the pure color to be worked with), 
saturation (the ratio of the pure color mixed with white), and luminosity (the brightness-per-unit 
area.) The following plate is of a screen from the program “NEW_MODELS”, and provides a 
physical model to relate the parameters of the HSL model to. 
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HSL Physical Model 

The Hue parameter rotates a color wheel to select a “pure” color to use. This color is then mixed 
with white light. The ratio of the pure colored light to the white light is controlled by the Saturation 
slider. Finally, the output passes through the luminosity iris (think of it as a hole you can adjust the 
size of) that controls the brightness of the output. 

The HSL model is accessed through the SET PEN statement with the secondary keyword COLOR. 
It produces two arrays for use in the SET PEN statement, one for INTENSITY and one for COLOR. 

2490 SET PEN Current_peri COLOR H(Current_pen)tS(Current_pen ) » L(Current_pen) 

HSL Resolution 

The resolution of the HSL model is not specified anywhere. This is because the resolution for the 
various parameters is not a fixed value. The resolution for any parameter of the HSL system is 
dependent on all three of the parameters. The resolution is not only changed by the other two 
parameters, but also by the magnitude of the parameter you are varying. If resolution of the system 
becomes important in a program, it is possible to use a GESCAPE to read the RGB values back 
from the color map to watch for a change in the actual value being written in the color map. Change 
the HSL parameters by very small increments (on the order of 0.001) until a change in the color 
map entry is detected. This is best done using color map entry 0, since you will only need to read a 
single entry from the color map to check for the change. 

Which Model? 

Two models are provided for the Model 236 Color Computer color system. The INTENSITY 
option of the SET PEN statement is faster than the COLOR option, because it directly reflects the 
hardware in the system. If you are working with primaries only, or want gray scale output, the RGB 
model is great. If, on the other hand, you are trying to deal with pastels and shades, you are better 
off with a color model that is intuitive in nature, and that is where the HSL model shines. 
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It is possible to get the best of both worlds by using the HSL model for the human interaction, then 
reading the color map with a GESCAPE statement to get the RGB color values. The RGB values 
can then be used to rapidly load a palette into the color map. The “SET_COLOR” program 
mentioned above does exactly that to calculate the correct cursor and text color to use when the 
user sets a background color. This is done by reading in the RGB color map values, calculating 
which corner of the color cube is farthest from the background color, setting the foreground pen 
and text displays to that color, and then writing the RGB array back into the color map. Even 
though the primary interaction is with the HSL model, the RGB is used because it is more 
convenient to find distances between colors in it. 

1270 GESCAPE 3i2iRsb(#) ! Read the color map 

1280 IF R 3 b (0 11 X . 5 THEN 

1280 Rsb( 1 »1) = 1 

1300 ELSE 

1310 R3b(1tl)=0 

1320 END IF 

1330 ! 

1340 IF R3b(0 12)<.5 THEN 
1350 Rsb(1»2)=1 

1380 ELSE 
1370 Rsb(1»2)=0 

1380 END IF 

1390 ! 

1400 IF Rsb(0 t3 X • 5 THEN 
1410 R3b(1»3) = 1 

1420 ELSE 
1430 Rsb(1»3)=0 

1440 END IF 

1450 ! 1460 Print_color=0 

1470 FOR 1=1 TO 3 

1480 Print_color = Print_color*2+Rsb(1 »I) 

1490 NEXT I 
1500 ! 

1510 CONTROL 1»5 iFunny_number(Print_cc1or) 

1520 SET PEN 0 INTENSITY Rsb(*) ! Refill the color map 

By the way, lines 1280 thru 1490 can be replaced by the following: 

1280 Print_color = 4#(RSb(0»lX.5)+2*(Rsb(0»2X.5) + (Rsb(0»3X.5) 

1290 FOR 1=1 TO 3 

1300 RGB(1»I)=BIT(Print_oolor»3-I) 

1310 NEXT I 

These lines will execute faster, but are harder to understand. 

One point brought out by the preceding example is that the models can be mixed freely. There is 
nothing to prevent using INTENSITY to set a gray background color and a black pen, and then 
using COLOR to produce the rest of the palette. Use whatever is easiest for what you want to do. 

If you are interested in pursuing the color models, the RGB model is formally referred to as a color 
cube and the HSL model is called the Color Cylinder. These models represent idealized color 
spaces and are described under “Color Spaces” at the end of this chapter. 
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Dithering and Color Maps 

In early color systems which did not provide control of the intensity of individual pixels, dithering 
became a very popular method of increasing the number of shades available to the machine. By 
reducing the effective resolution of the system, it was possible to provide a large variety of shades. 

The Model 236 Color Computer provides dithering for applications that require more shades than 
the 16 colors that are available at any single time with the color map. The AREA INTENSITY and 
AREA COLOR statements provide access to the dithered colors, although they will fill with a single 
pen if the color requested exists in the current color map. 

If you are not in the color-map mode, AREA INTENSITY and AREA COLOR will produce the 
same results on the Model 236 Color Computer that they produce on non-color-map devices, such 
as the HP 98627 Color Interface Card and the HP 9845C. 

Creating A Dithered Color 

The following discussion gets a little abstract, and it is not absolutely necessary to understand how 
dithering works to use it. It is interesting information, and can be useful knowledge if dithered areas 
don’t do what you expect. 

A color vector is a directed line connecting two points in RGB color space. The dithering process 
tries to match a target vector by constructing a solution vector from colors in the color map. The 
actual dithered color to be produced will be 16 times the target vector, since 16 points in the dither 
area will be combined to create it. 

The color matching process requires sixteen steps. First, the target vector is compared to the vectors 
produced by all the colors in the color map. The one which is closest 1 to the target vector is selected 
as the first component of the solution vector. 

The following process is then repeated 15 times: 

1. The target vector is added to itself to produce a new target vector. 

2. A trial solution vector is created for each color in the color map by adding the vector for the 
color map entry to the previous solution vector. The trial solution vector that is closest to the 
target vector is selected as the new solution vector. 

At this point, the target vector is 16 times the original target vector, and the solution vector consists 
of a summation of color vectors from the color map that produce, at each iteration, the vector 
closest to the target vector. 


1 The distance between the points in the RGB color space is used. The RGB color space is a 3-dimensional Cartesian coordinate system. 
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The colors are then sorted by luminosity and filled into the following precedence matrix (the most 
luminous color is filled into the lowest numbered pixel): 


1 

13 

4 

16 

9 

5 

12 

8 

3 

15 

2 

14 

11 

7 

10 

6 


The dither precedence matrix is actually tied to pixel locations on the CRT. The matrix is repeated 
128 times across the CRT and 97.5 times from the top to the bottom of the CRT. Areas to be filled 
are mapped against the fixed dithering pattern. All dither cells completely within an outline to be 
filled are turned on according to the precedence pattern. Cells which are only partially within the 
border are only partially enabled. If the area fill pattern calls for a pixel outside the boundary to be 
set, it will not be. 

There are problems with dithering, especially when used with the color map: 

• The dithered color selection tends to produce textures. In some cases, the textures overwhelm 
the shade produced. 

• The dithered colors are not necessarily accurate representations of the color specified. This is 
especially true if the color map is loaded with a palette that is less than ideal for dithering. A 
4-by-4 dither cell with one full intensity green pixel does not look the same as the same cell 
filled with the color map color 1/15 green. 

• The dithered colors are not stable if the color map is altered. (If you change the color map after 
doing a fill based on an AREA COLOR or AREA INTENSITY, the fill value can change.) 

• The dithering operation produces anomalies when the area to be filled is thin. If it is less than 
four pixels wide or high, it cannot contain the entire dither cell and the results can be surprising 
for colors which turn on small portions of the cell. 

If You Need More Than 16 Colors 

If you have an application that requires more than 16 colors, the first thing to do is see if you can 
redefine it to use 16 colors. In many cases this is possible, and the higher quality of the color 
mapped palette is worth a little checking to see if you can use it. 

If you absolutely have to get at a larger palette, then load a palette optimized for dithering (optimiz¬ 
ing for dithering is described below) and stick with dithering. Don’t try to mix color map redefini¬ 
tion and dithering - it will probably cause you a lot of grief. Especially, do not try to do interactive 
redefinition of the color map in a system that also does dithering. 
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Optimizing for Dithering 

The actual color palette you require determines the optimum color map values. The following 
program leaves the additive primaries and their complements in the lower eight locations and 
replaces the designer colors in the upper half of the color map with half-luminosity values for each 
of the lower eight colors. 

! "DITHER-PAL" 

! 

! This program creates a palette for dither in* 

i 

GINIT 

PLOTTER IS 3 t "INTERNAL"5C0L0R MAP 
GRAPHICS ON 
WINDOH 0,1G,-«1 >1 
GESCAPE 3 »2 5Co 1 o rs ( #) 

FOR 1=0 TO 7 

Colors(1+8 tl )=Colors(I ,l)/2 
Colors(1+8 *2)=Co1o rs(I ,2)/2 
Colors(1+8 *3)=Co1o rs(I ,3)/2 
NEXT I 

SET PEN 0 INTENSITY ColorsU) 

FOR 1=0 TO 15 
MODE I t0 
AREA PEN I 
RECTANGLE 1 ,1 >FILL 
NEXT I 
END 

The color map generated by “DITHER_PAL” is optimized for producing the widest selection of 
colors. If you have specialized needs you can create palettes that are even more optimum for 
specific applications. For example, you could load the color map with 16 shades of red to produce 
an optimum palette for producing an image that only contained red objects. 


10 
20 
30 
40 
50 
GO 
70 
80 
90 
100 
110 
120 
130 
140 
150 
1 GO 
170 
180 
190 
200 
210 
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Non-Dominant Writing 

All the techniques described up until now have dealt with dominant writing to the frame buffer. In 
the dominant writing mode, the pen selector is written directly to the color map, and overwrites 
whatever is currently in the frame buffer. In non-dominant writing, a bit-by-bit logical-or is per¬ 
formed on the contents of the frame buffer and the pen selector value being written to the frame 
buffer. Thus, if pen 1 is written to a buffer location that has already been written to with pen 6, the 
buffer location will contain 7, but writing pen 2 to a buffer location that has already been written to 
with pen 6 will not change the contents. 

Using a properly defined palette of colors in the color map, it is fairly easy to create a copy of the 
primary color circles. An additive palette is created in lines 490 through 540, by modeling the three 
least-significant bits of the frame buffer as color planes. Bit 0 is treated as representing red, bit 1 as 
representing green, and bit 2 as representing blue. 

470 !******************* Create the Additive Palette #*# 

480 ! 

490 FOR 1=0 TO 7 
500 R e d = BIT (I#0) 

510 Green=BIT(I#1) 

520 Blue=BIT(I»2) 

530 SET PEN I INTENSITY Red>Green,Blue 

540 NEXT I 


The palette is created in the color map and then read into an array, using GESCAPE. 

G20 GESCAPE 3 t2 5Additive(*) ! Read additive palette 

A subtractive palette is created in lines 750 through 840. The palette is created by converting 
between the RGB map created for the additive palette, above, and a CMY (Cyan, Magenta, and 
Yellow) system. (The technique is described in more detail in the next section - “Color Spaces.”) 

750 FOR 1=0 TO 15 ! Create subtractive palette 

7B0 FOR J=1 TO 3 

770 Point(l»J)=Additive(ItJ) ! Read a point from additive palette 

780 NEXT J 

790 MAT New_point= Unit-Point 

800 ! 

810 ! The next line prints out PEN INTENSITY values for both palettes 

820 IF I<8 THEN PRINT USING Per.-ima*e2 5 Wh i t e$ »I »Po in t (1 t1) tPo in t (1 ,2) t 
Point(1 * 3) »B1acK$»I»New_Point(1 * 1) »New_point(1 t2 ) »New_P 0 int(1*3) 

830 SET PEN I INTENSITY New-PointU) ! 

840 NEXT I 

A Surprise palette is created by reading from data statements. 

210 !************** Create the Surprise Palette **************** 

220 ! 

230 SET PEN 0 INTENSITY •6»*6t.6 ! Gray background 

240 RESTORE Surprise ! Make sure you read the ri$ht data 

250 Surprise: ! DATA for surprise palette 


2S0 

DATA 

♦ 9 

! Pen 

1 

270 

DATA 

♦ 2 

! Pen 

2 

280 

DATA 

♦ 5 

! Pen 

3 

290 

DATA 

♦ 7 

! Pen 

4 
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300 

DATA *1 

! Pen 5 


310 

DATA * 8 

! Pen 8 


320 

DATA * 3 

! Pen 7 


330 

! 



340 

FOR 1=1 TO 

7 


350 

READ Hue 



360 

SET PEN 

I COLOR Hue #1>1 


370 

NEXT I 



380 

! 



390 

MAT Point= 

( *8) 

! \ 

400 

SET PEN 8 

INTENSITY Point(*) 

! \ 

410 

SET PEN 9 

INTENSITY Point(*) 

! > 

420 

MAT Point= 

(0) 

! / 

430 

SET PEN 10 

INTENSITY PointU) 

! / 

440 

! 



450 

GESCAPE 3t 

25SurpriseU) 



The surprise palette relates to no known color system, but it demonstrates an important point - the 
non-dominant color map is arbitrary, and can represent any system you can dream up. You may 
want to write in four shades of blue, have any overlap of two pens be yellow, any overlap of three 
pens be orange, and any overlap of four pens be red. The following lines set up such a color map. 

230 DIM Yelloudil tl:3) tOransfe (1:1 *1:3) 

240 RESTORE Colors 

250 READ Ye 11ow<*)»0ran3e(*) 

260 ColorsrDATA .87,.87,0, It.47.0 


27Cr 



! 



280 

SET 

PEN 

0 INTENSITY ♦GmBmS 

! Gray background 


290 

SET 

PEN 

1 INTENSITY 0 *0 *♦4 

! 0001 - Blue Plane 

1 

300 

SET 

PEN 

2 INTENSITY OtOt.6 

! 0010 - Blue Plane 


310 

SET 

PEN 

3 INTENSITY YellowU) 

! 0011 


320 

SET 

PEN 

4 INTENSITY 0»0».8 

! 0100 - Blue Plane 

3 

330 

SET 

PEN 

5 INTENSITY YellowU) 

! 0101 


340 

SET 

PEN 

S INTENSITY YellowU) 

! 0110 


350 

SET 

PEN 

7 INTENSITY OransfeU) 

! 0111 


3B0 

SET 

PEN 

8 INTENSITY 0»0tl 

! 1000 - Blue Plane 

4 

370 

SET 

PEN 

9 INTENSITY YellowU) 

! 1001 


380 

SET 

PEN 

10 INTENSITY YellowU) 

! 1010 


390 

SET 

PEN 

11 INTENSITY 0 ran *e U) 

! 1011 


400 

SET 

PEN 

12 INTENSITY Ye 11ow(*) 

! 1100 


410 

SET 

PEN 

13 INTENSITY OrantfeU) 

! 1101 


420 

SET 

PEN 

14 INTENSITY OrantfeU) 

! 1110 


430 

SET 

PEN 

15 INTENSITY 1*0>0 

! 1111 


440 

j 





450 

GESCAPE 

3 *2 5Surprise(#) 




Backgrounds 

One nice feature available with non-dominant writing is backgrounds that aren’t altered by your 
foreground. By restricting your foreground to pens 0 through 7, a background written with pen 8 
will not be damaged by writing over it. 
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Complementary Writing 

The concept of complementary writing was introduced in Chapter 4, Interactive Graphics, under 
“Making Your Own Echoes.” On the Model 236 Color Computer, the concept of a complementary 
pen is extended to deal with the 4-bit values in the color map. With the non-dominant writing mode 
enabled, negative pen numbers will be exclusively-ORed with the contents of the frame buffer. 

The complement occurs only for the bits which are one in the pen selector. Thus a pen selector of 
- 6 would complement bits 1 and 2 of the frame buffer. If a 1 exists in a frame buffer location and a 
line is drawn over it with PEN - 6, a 7 will now be in the location. Writing over the pixel with the 
same pen selector will return it to a 1. 

Making Sure Echoes Are Visible 

It is important to understand that the complementing is of the frame buffer, not the color map. You 
are responsible for making sure that the complemented frame buffer values are visible against one 
another. Be careful of placing the same color in two locations on the color map that are comple¬ 
ments of one another. If you pick one of them as an echo color and then try to use the echo over an 
area filled with the other value, you will not be able to see it. 


Effective Use of Color 

At the beginning of this chapter, it was pointed out that color is a very powerful tool, and that it was 
also easy to misuse. While it is beyond the scope of this book to provide an exhaustive guide to 
color use, a few comments can be made on using color effectively. 

This section will deal with seeing color first, to lay the groundwork. This is followed by a discussion 
on designing effective display images, since effective color use is almost impossible if the image is 
fundamentally unsound. 

After laying the groundwork, effective color use is discussed, from both the objective and subjective 
standpoints. 

Seeing Color 

The human eye responds to wavelengths of electromagnetic radiation from about 400 nm to about 
700 nm (4000 to 7000 angstrom.) We call this visible light. Visible light ranges from violet (400 nm) 
to red (700 nm.) If all the frequencies of visible light are approximately equally mixed, the result is 
called white light. 

The eye’s ability to discriminate color is reduced as the light level is reduced. This means that the 
variety of colors perceivable at low light levels is smaller than the variety at higher light levels. 

The eye is most sensitive to colors in the middle of the visible spectrum, a yellow-green color. The 
eye is least sensitive to the shorter wavelengths, which are at the blue end of the spectrum. 
Sensitivity to red is between that of yellow-green and blue. Two things seem to be associated with 
the sensitivity of the eye to various colors: 

• The eye can distinguish the widest range of colors in the yellow-green region, and the smallest 
variety of colors in the blue region. 

• The eye is most sensitive to detail in the yellow-green region. 
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Why and how any of the above works is explained by color theorists. There are a large number of 
theories of color, and all of them work for explaining the specific phenomena the researchers were 
studying when they developed the theory, but none of them seem to be able to explain it all. The 
list of references at the end of this chapter includes several on how vision works. 

It’s AH Subjective, Anyway 

One of the reasons that there are so many color theories is that no two people seem to perceive 
color the same way. In fact, the same person will many times perceive color differently at different 
times. In addition to the physiological and psychological variables in color perception, many en¬ 
vironmental factors are important. Ambient lighting and surrounding color affect the perceived 
color tremendously. 

Mixing Colors 

If two distinct audio tones are played simultaneously, you will hear both of them. If the same area is 
illuminated by two or more different colors of light, you will not perceive the original colors of light, 
but rather a single color, and it will be not be one of the original colors. What you will perceive is 
called the dominant wavelength. 

The CRT uses three different colored phosphors (Red, Green, and Blue) and mixes various 
intensities of the resulting lights to produce one of 4096 colors at any point on the CRT. What you 
actually see is the resulting dominant wavelength. This is an additive color system. 

Mixing with pigments is a little different. Pigments in inks and paints absorb light. The idea with 
pigments is to subtract all but the color you want out of a white light source. This is a subtractive 
color system, and the primary colors are cyan, magenta, and yellow. 

The different mechanisms for mixing additive and subtractive colors make it difficult to reproduce 
images created with additive colors (like a CRT) in a subtractive medium (like a plotted or printed 
page.) Photographing the CRT is the best method currently available for color hard copy. This 
problem is discussed in more depth at the end of this chapter under “Color Gamuts” and “Color 
Hard Copy.” 

Designing Displays 

While the design of displays is not really a color topic, a few words about it are in order before we 
get into the effective use of color. If the design of an image is fundamentally unsound, all the good 
color usage in the world is not going to help it. 

Whenever you put an image on a CRT, you have created a graphic design. The design will either 
be a good one or a bad one, and if you know this, you have automatically increased your chances 
of creating a good design. If you are going to be creating a lot of displays, either in a lot of programs 
or in a single large program, you need a graphic designer. Many people have a natural talent for 
graphics - an ability to look at an image and tell whether it is graphically sound or not. If you don’t 
have that talent (or feel you could use some help) there are two courses of action that might be 
productive for you; you can hire a graphics designer or become one. Renting one is expensive and 
becoming one is time-consuming, but if you are trying to communicate with users, you have to 
understand graphic design. While getting a degree in graphic arts may be impractical, a course or 
two in the field will prove very useful if you do much programming. 





96 Model 236 Color Computer Color Graphics 


While this book can’t turn you into a graphic designer, a few simple hints may help you on your 
next program. 

The most important thing in communicating with people is to keep it simple. Don’t try to communi¬ 
cate the total sum of human knowledge in a single image. It is much more effective to have several 
screens of information that a user can call up as required than a single screen so complicated that 
the user can’t find what he wants on it. 

Try to redundantly encode everything, in case one of the encoding methods fails. For example, if 
you color code information, use positional coding (the location of the information tells something 
about the nature of the information) too. Remember, the person reading the screen is probably not 
the person who wrote the program, and even if you are writing the program for yourself, you may 
forget how it works by the next time you try to use it. 

Another important thing to remember is to be consistent. Always try to place the same type of 
information in the same area of the CRT and use the same encoding methods for similar messages. 
Don’t using flashing to encode important information on one display and then using inverse video 
for the same thing seven displays into the program. 

Objective Color Use 

In spite of the subjectivity of color, there are some fairly objective things that you should know 
about color. Some of the things that can be done with color don’t depend heavily on subjective 
interpretation. 

Color Blindness 

A fact of life that it is dangerous to ignore is that some people are color-blind. The most common 
form of color blindness is red-green color blindness (the inability to distinguish red and green). 
Avoid encoding information using red-green discrimination, or these people will have difficulty 
using the system. 

Color Map Animation 

One very powerful communication tool is motion. Some simple forms of animation can be 
achieved by changing the colors in the color map. This technique of color map animation is capable 
of adding simple motions to an image. Color map animation can be combined with frame buffer 
animation, which is based on creating images and storing them, to produce more dramatic ani¬ 
mated effects. 

The basic technique of color map animation can be broken into 3 steps: 

1. Create the palettes (or starting palette.) 

2. Create the image. 

3. Load or modify the palette to add motion. 

A look at a simple program example will help show how color map animation works. Load and run 
“MARQUEE” from the Manual Examples disc. The moving color bands around the label are not 
redrawn to produce the motion - the color they represent is changed in the color map. Let’s look at 
each section of the program to see how color map animation works. 
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The first step is declaring some arrays. Most of the arrays will hold RGB pen values to use with SET 
PEN to define new color palettes. Bl ack contains all black pens, so the image can be drawn without 
being seen. Messase* is used to hold strings to print on the alpha screen while the image is being 
created. Pall through Pa 14 are palette arrays that contain the color maps for the animation. 
New.order will be used to create the palette arrays. 

10 ! "MARQUEE" - a demo of color map animation 

20 ! 

30 DIM Black(0:15*1:3)tMessa4e$[Q0] 

40 DIM Pall(l:G*l:3)*Pal2<1:6*1:3)»Pal3(1:6.1:3)*Pal4(1:B*1:3> 

50 INTEGER New.order(1:6) 


The first three lines in the following block of code are used to put a message on the alpha screen for 
the person running the program. It takes several seconds for the program to set up the animation. 
Messages are printed on the screen to keep the viewer from getting bored. 

The next step is to create the palettes. The palette will be loaded into pens 1 through 6. An initial 
palette is read into Pall from data statements. Pens 1 through 4 will be used for the actual 
animation. These are red, green, blue, and black. The black band is necessary to produce a strong 
illusion of motion. The other colors can be whatever you want. 

Pen 5 provides a stable background to label the marquee message in, and pen 6 is used for two 
purposes: 

• Each rectangle is framed with a fixed pen to provide reference points for the motion. Percep¬ 
tion of motion is relative, and the illusion is much more pronounced when the rectangles are 
framed. 

• The message in the marquee is labeled in a fixed pen, to make it easy to read. 

Once the initial palette is loaded, MAT REORDER is used to rearrange the colors, rotating them by 
one position in each successive palette. Only the lower four pens are rotated. 


GO 

OUTPUT KBD USING "#* 

B"5255*75 

! Clear alpha screen 

70 

ALPHA ON 


! Obvious 

80 

PRINT "What's that?" 


! Give them somethin* to read 

30 

Pause_time =♦084 


! Display each palette this Ion* 

100 

MAT B1 a c k = (0) 


! All pens b 1 a c K 

110 

RESTORE Pal 


! Read the ri*ht data 

120 

READ Pal 1(*) 


! Read the base palette 

130 

READ New_order(#) 


! Read the reorderin* vector 

140 

Pal:DATA 1*0*0* 0*1 * 

0* 0*0*1* 

0*0*0* 0*0*0* 0*1*1 

150 

DATA 2 *3 *4 * 1*5*8 



160 

MAT Pa 12= Pall 


! \ 

170 

MAT REORDER Pal2 BY 

New_o rde r 

! \ Copy precedin* palette 

180 

MAT Pa 13= Pal2 


! \ and reorder the lower 

190 

MAT REORDER Pal3 BY 

New_o rde r 

! / four entries to rotate 

200 

MAT Pal4= Pal3 


! / the colors for the 

210 

MAT REORDER Pal4 BY 

New_o rde r 

!/ lower four pens* 
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Next, we set up the graphics system. It must be in the color map mode. The scaling was set up to be 
convenient for generating the border of bars. The scaling allows for softkeys to be included under 
the image. 


220 GINIT 

230 PLOTTER IS 3 >"INTERNAL"5C0L0R MAP 
240 SET PEN 0 INTENSITY BlacKU) 

250 GRAPHICS ON 
260 UIND0W 0,30,-3>30 
270 PEN G 


Set defaults 
Set color wap 
All pens blacK 
0 b v i o u s 

Arbitrary scale 
Border and text pen 


A set of concentric rectangles are generated with the RECTANGLE statement, framed (EDGE) with 
pen 6 (one of the stable colors) and filled (FILL) with one of the pens (1 thru 4) that will be used for 
the animation. The inner rectangle is filled with pen 5 to provide a stable background for the labels. 
Messages are read from data statements and printed on the screen to keep the viewer’s attention. 


280 RESTORE Text 

290 FOR 1=1 TO 9 

300 AREA PEN I MOD 4+1 

310 IF 1=9 THEN AREA PEN 5 

320 MODE (0+1 *♦5),0+1#♦5 

330 RECTANGLE (30-1) ,30-1 ,FILL ,EDGE 

340 IF I MOD 2 THEN 

350 READ Message* 

3B0 PRINT Message* 

370 END IF 

380 NEXT I 

390 Text:DATA "You're tired of the same old 
400 DATA "Ready for someth in $ new?","Don't 


! Read the r i $ h t data 
! 8 nested rectangles 
! Use pens 1 thru 4 
! Inner rectangle for message 
! Corner of the rectangle 
! Draw a filled rectangle 
!\ Print a message after 
! \ every other rectangle? 

! / (Don't let them $ e t 
!/ bored while setting up*) 

computer programs?" 

Move*" ,"Don't Go Away*" >" " 


Now we add the text in the marquee. The delay in line 530 is for dramatic effect. 


410 

CSIZE 10 


!\ Set up for the labels 

420 

L0RG 5 


! / 

430 

MODE 15,17 


! Location for labels 

440 

LABEL USING "K"5" 

Coming s o o n" 

! \ 

450 

LABEL USING "K"5" 

To a Model 3GC" 

! > Labels in Marquee 

460 

LABEL USING "K"5" 

Near You*" 

! / 

470 

FOR I = - * 04 TO *04 

STEP *01 

! \ 

480 

M00E 15+1,22 


! \ MaKe this label bold 

490 

LABEL USING "K" 

5" T h e Tisfer" 

! / 

500 

NEXT I 


! / 

510 

OUTPUT KBD USING 

"#,B"5255,75 

! Clear the Alpha screen 

520 

PRINT "It's time 

for:" 

! Last text message 

530 

NAIT 2 


! Let them read it 

540 

OUTPUT KBD USING 

"#,B"5255,75 

! Clear the Alpha screen 
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The following code begins the actual animation. The palettes are loaded in succession to create the 
motion effect. Varying the value of Pause-time (defined in line 90) changes the speed of the 
apparent motion. Since each palette is a single positional rotation of the preceding palette, and the 
last palette looks like it is one rotation away from the first palette, we can simply loop back to the 


first palette. 



550 

LOOP 


! Do forever 

5G0 

GET PEN 1 INTENSITY 

Pal 1(*) 

! \ 

570 

NAIT Pause-time 


! \ 

580 

SET PEN 1 INTENSITY 

P a 12 (*) 

! \ 

590 

WAIT Pause-time 


! \ Load the four 

GOO 

SET PEN 1 INTENSITY 

Pal 3(#) 

! / waiting after 

610 

WAIT Pause-time 


! / 

620 

SET PEN 1 INTENSITY 

Pal4(#) 

! / 

630 

WAIT Pause-time 


! / 

640 

END LOOP 



650 

END 




Study this program segment to conceptualize a technique for color animation. 

A color wheel is animated using a similar technique, except that the color map is calculated each 
time, rather than being a pre-calculated set of values. The following program segments show this. 

9080 MaKe_color_pens: ! 

9090 Wheel.huet11)=Hue-4*Del.hue 

9100 IF Wheel-hue(11)<0 THEN Wheel-hue(11)=1+Wheel_hue(11) 

9110 Wheel.hue(10)=Hue-3*Del.hue 

9120 IF Wheel-hue(10X0 THEN Wheel-hue(10)=l+Wheel_hue<10) 

9130 Wheel.hue(9)=Hue-2*Del_hue 

9140 IF Wheel_hue(9)<0 THEN Wheel_hue(9)=l+Wheel_hue(9) 

9150 Wheel.hu elBXHue-Del-hue 

9190 IF Wheel_hue(8)<0 THEN Wheel-hue(8)*1+Wheel_hue(B) 

9170 ! 

9180 Wheel_hue(7)=Hue 
9190 Wheel-hue(6)=(Hue+Del_hue) MOD 1 
9200 Wheel-hue< 5) = (Hue+2*Del_hue) MOD 1 
9210 Wheel-hue(4)=(Hue+3*Del_hue) MOD 1 
9220 ! 


In addition, the palette is loaded in ascending order (pen 1 first, then pen 2, etc.) to rotate the wheel 
in one direction and in descending order to rotate in the other direction. 


9230 IF Hue_up=True THEN 
9240 FOR IJ = 4 TO 11 

9250 SET PEN Id COLOR Wheel.hue(I j) »1 1 1 

9290 NEXT Id 

9270 ELSE 

9280 FOR Id=ll TO 4 STEP -1 

9290 SET PEN Id COLOR Whee l.hue(Id) »1 1 1 

9300 NEXT Id 

9310 END IF 


The speed at which the wheel can be rotated is limited by the computation and by the fact that the 
HSL model is used. 





100 Model 236 Color Computer Color Graphics 


“RIPPLES” and “STORM” (on Manual Examples disc) are two more examples of color map 
animation. Study them as you require. 

3D Stereo Pairs 

The program “STEREO”, on the Manual Examples Disc, demonstrates a method for viewing 
three-dimensional information on a two dimensional display device. The program produces a pair 
of images on the CRT. The two images form what is called a stereo pair. The stereo pair consists of 
an image representing the scene as it would be seen by the left eye and one representing the scene 
as it would be seen by the right eye. When the two images are viewed correctly, the brain merges 
them together into a single, three-dimensional image. 

One of the easiest ways to do that is to use different colored images and then put matching filters 
over the eyes. 

In “STEREO”, one image is written in red and the other in blue. A red filter should be placed over 
the left eye and a blue filter over the right eye. This is the same arrangement used for broadcasting 
stereo movies over NTSC (American) color television. 

The filters normally available for viewing television stereo transmissions are not very narrow, and 
some “ghosting” occurs (faint images intended for one eye visible in the other.) Narrower filters 
would actually be better. The CIE coordinate ranges for each of the phosphors are listed below: 


Color 

X Range 

Y Range 

Red 

0.620 thru 0.640 

0.325 thru 0.350 

Green 

0.280 thru 0.315 

0.600 thru 0.673 

Blue 

0.150 thru 0.153 

0.055 thru 0.062 


If you don’t want to get into CIE coordinates, borrow a set of filters, and look for two that produce 
the images with the least ghosting from the other color. Those are the two you want to use. 

The images are written in a non-dominant mode, with a palette set up to allow the intersection of 
the two images to be visible in both eyes. 

The program could be improved by using true perspective, instead of view-plane projection to 
produce the images. 

Subjective Color Use 

Choosing appropriate colors for a program to use can be tricky, and constitutes a significant part of 
the job of a good graphic designer. In the final analysis, it is a largely a matter of trying combinations 
until you come up with a set of colors that look good together. If your application is complex, it will 
be well worth your while to consult with a graphic designer about the color scheme and layout of 
information displays for your program. There are, however, a few fairly fundamental things to 
remember in designing your programs. 

Choosing Colors 

First, and probably most important, is to use color sparingly. Color always has a communication 
value and using it when it carries no specific information adds noise to the communication. 
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Use some method for selecting the colors - one of the best is a color wheel (see the SET PEN entry 
in the language reference). 

• Try varying the luminosity or saturation of a color and its complement (opposite it on the color 
wheel). 

• Try color triplets (three equally-spaced colors) and other small sets of colors equally-spaced 
around the color wheel. 

Pastels (less than fully-saturated colors) tend not to clash. 

Give careful attention to your background color. Remember that a filled area can become the 
background color for a portion of the image on the CRT. 

• If you are using a small number of colors, use the complement of one of them for the 
background. 

• If you are using a large number of colors, use a gray background. 

If two colors are not harmonious, a thin black border between them can help. 

Use subtle changes (such as varying the saturation or luminosity of a hue) for differentiating subtly 
different messages and major changes (such as large changes in the hue of saturated colors) to 
convey major differences. 

Most of all, think and experiment. The final criteria is “Does this display communicate the mes¬ 
sage?”. 

Psychological Color Temperature 

Temperatures ranging from cool to hot are associated with colors ranging from blue to red (ice blue 
- fire red). This is actually the opposite of physical reality, where the higher the temperature, the 
shorter the wavelength (blue is a black body radiation of about 7600° K while red is about 3200° K) 
but this is what people perceive as the relation between temperature and color. This is probably 
because people very seldom deal with the high temperatures and associate the blues with non¬ 
temperature related natural phenomena (oceans and ice). If you are trying to portray temperature, 
electrical field strength, stress, or some other continuous physical system, using the psychological 
color temperature can serve as a useful starting point for color coding the values. 

Cultural Conventions 

When trying to use color for communicating, cultural conventions are useful. Red is widely associ¬ 
ated with danger in most western cultures, giving extra emphasis to a flashing red indicator. By the 
same token, a flashing green indicator would be less effective for communicating an out of range 
value in a system. In any specific application, it is important to understand the color associations 
that are common for the group using the application. 
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Color Spaces 

If you ask a broadcast engineer what the primary colors are, he will probably tell you “Red, green, 
and blue.” If you ask a printer what the primary colors are, he will probably tell you “Cyan, 
magenta, and yellow.” If you ask a physicist, he will probably smile and say “That’s not the right 
question. ” Let’s see if we can get enough information about color systems to ask the right question. 

Primaries and Color Cubes 

The reason that you can get two answers to the preceding question is that there are two sets of color 
primaries. Red, green and blue are additive primaries, and cyan, magenta, and yellow are subtrac¬ 
tive primaries. Each of these sets of primaries can be used to construct what is referred to as a color 
cube. These are called the RGB color cube and the CMY color cube. 

Each of the color cubes can be used to describe a color space. Color spaces are mathematical 
abstractions which are convenient for scientific descriptions of color. This is because the color 
spaces provide a coordinate system for describing colors. Once you have a coordinate system, you 
can talk about and manipulate colors mathematically. 

In addition to the color cubes, other color coordinate systems exist. While there are many, we will 
only look at HSL Color Space, because it is one of the available color models on the Model 236 
Color Computer. First, the cubes. 

The RGB Color Cube 

The RGB color cube describes an additive color system. In an additive color system, color is 
generated by mixing various colored light sources. (Color mixing is discussed in “Effective Use of 
Color,” above.) 

The origin (0,0,0) of the RGB color cube is black. Increasing values of each of the additive primaries 
(Red, Green, and Blue) move towards white (the opposite corner of the cube.) The maximum for 
all three colors is white (1,1,1). 

A diagonal of the cube connecting (0,0,0) and (1,1,1) represents gray shades, which are generated 
by incrementing all three color axes equally. 

The RGB color cube can be accessed directly, in 16 steps for each axis, by the INTENSITY option 
for color definition statements (SET PEN, AREA INTENSITY, and AREA COLOR.) 

The CMY Color Cube 

The CMY color cube represents a subtractive color system. In a subtractive color system, colors are 
created by subtracting colors out of a pure white (containing all colors equally) light source. This 
most often occurs when light is reflected off of surfaces containing or coated with pigments. This 
happens in printing and painting, among other operations. 

The origin (0,0,0) for the CMY color cube is white. This represents all the colors in a perfect white 
(containing all colors) light source being reflected by a white (reflecting all colors) surface. Increasing 
values of each of the subtractive primaries (Cyan, Magenta, and Yellow) move towards black (the 
opposite corner of the cube.) The maximum for all three colors is black (1,1,1). 

A diagonal of the cube connecting (0,0,0) and (1,1,1) represents gray shades, which are generated 
by incrementing all three color axes equally. 
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Converting Between Color Cubes 

It is sometimes useful to convert from one color coordinate system to another. 

The CMY color cube can be converted to RGB coordinates (or RGB to CMY) by producing a color 
triplet (a 1 by 3 matrix) containing the CMY coordinate and subtracting this from a color triplet 
representing a unit color vector (1,1,1). This operation represents rotating the color cube to bring 
the CMY black (1,1,1) to the RGB black (0,0,0). 

The following program lines convert the RGB color map into CMY values. This is done to provide 
separations of an RGB image into CMY values for printing (remember -printing is a subtractive 
process). Since the system is color mapped, you only need to convert 16 values - remember, the 
frame buffer values only point to a register in the color map. 

• The contents of the color map are copied into 01d_colors, using a GESCAPE in line 14680. 

• Each color triplet in the color map is copied into Rsb_po int in lines 14720 through 14740. 

• The actual RGB to CMY conversion is done in line 14750. 

• The CMY triplet is copied into the CMY array in lines 14760 through 14780. 

146G0 Convert_oo1ors:! 

14G70 ALPHA ON 

14680 GESCAPE 3 ,2 101d_co1ors(*) 

14630 PRINT " OLD COLORS NEW COLORS" 

14700 PRINT "Index RGB CMY" 

14710 FOR 1=0 TO 15 
14720 FOR J=1 TO 3 

14730 R3b_Point(J)=01d_colorsU»J) 

14740 NEXT J 

14750 MAT Cmy_P 0 int= Unit_point-Rsb_point 

147G0 FOR J=1 TO 3 

14770 New_colored »J)=Cmy_Point(J) 

14780 NEXT J 

14730 PRINT USING Ima3e$iItRdb.point(1)»R3b_P0int(2)tRdb.point(3)» 

Cmy_point(1) tCmy_P0int(2) tC«y_point(3) 

14800 NEXT I 

14810 Converted=True 

14820 RETURN 

A subprogram can be used to provide drivers to produce monochromatic gray-scale displays 
representing the cyan, magenta, and yellow contents of the color map (and a separate black image 
that printers like to have around). The monochromatic representation is easier to photograph than 
the actual color content. 

This color conversion just described is mathematical. If you really want to print it, you will have to 
work with a printer to calibrate the frames you are giving him against a good color photo of the 
actual image. The printer may also want the CMY information to be inverted for his process. This 
can be achieved photographically or by subtracting each of the CMY values from one during the 
color map conversion (this is an element-by-element subtraction, not a matrix subtraction). The 
conversion can be achieved with the MAT statement: 

14805 MAT New-colors = (1) - New.colors 
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HSL Color Space 

The color cubes are very useful for working with physical systems that are based on color primaries. 
They are not always intuitive, though. 

The HSL color cylinder resides in a cylindrical coordinate system. A cylindrical coordinate system is 
one in which a polar coordinate system representing the X-Y plane is combined with a Z-axis from a 
rectangular coordinate system. 

• The coordinates are normalized (range from 0 through 1). 

• Hue (H) is the angular coordinate. 

• Saturation (S) is the radial coordinate. 

• Luminosity (L) is the altitude above the polar coordinate plane. 



HSL Color Cylinder 
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The cylinder rests on a black plane (L = 0) and extends upward, with increasing altitude (Luminos¬ 
ity) representing increasing brightness. Whenever luminosity is at 0, the values of saturation and 
hue do not matter. 

White is the center of the top of the cylinder (L = 1, S = 0).The center line of the cylinder (S = 0) is 
a line which connects the center of the black plane (L = 0, S = 0) with white (L = 1, S = 0) through a 
series of gray steps. (L from 0 to 1, S = 0). Whenever saturation is 0, the value of hue does not 
matter. The outer edge of the cylinder (S = 1) represents fully saturated color. 



Using the above drawing (HSL Color Specification,) hue is the angular coordinate, saturation is the 
radius, and luminosity is the altitude of the desired color. 
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HSL to RGB Conversion 

Converting from HSL to RGB is simple. Do a SET FEN for the HSL point you want and then read 
it out of the color map with a GESCAPE. You are limited to the resolution of the color map, but it is 
very simple. The following line reads the color map into OlcLcolors. 

14680 GESCAPE 3 ,2 iOld_co1ors(*) 

RGB to HSL conversion is not described, due to the fact that it is a one-to-many conversion (the 
entire bottom plane of the HSL color space is represented by a single point in the RGB color space, 
and hue is indeterminate if saturation equals 0.) 

Color Gamuts 

The range of colors a physical system can represent is called its color gamut. Color gamuts are 
important when you want to convert between different physical systems, because the source 
system may be able to produce colors the destination system cannot reproduce. An exhaustive 
treatment of color gamuts is beyond the scope of this book. However, here are some rules of 
thumb: 

• The color gamuts for CRTs and photographic film are not the same, but are fairly close. If you 
are lucky, you can photograph the CRT and catch it on film. It may take more than one 
exposure, so be careful and bracket everything with several exposures. 

• The color gamut for printing is significantly smaller than that of either photographic film or of a 
CRT. The fact that you have a picture of a CRT does not mean you can hand it to a printer and 
get a faithful reproduction of it. 

• The color gamut of a plotter is much smaller than that of a CRT. You have to create images 
with the limitations of a plotter in mind if you intend to reproduce them on a plotter (see 
“Plotting and the CRT,” below.) 

The different color gamuts available are not a problem unless you forget the differences and try to 
act like all physical systems have the same gamut. Think ahead if you have to reproduce images - it 
will save a lot a trouble. 

Color Hard Copy 

It may seem strange to find “Color Hard Copy” a topic under “Color Spaces.” The reason it is here 
is that color hard copy represents a translation between color systems, and many of the problems in 
color hard copy arise from the fact that the color gamuts available to the CRT and the hard copy 
device are different. 

There are two basic ways to get a color hard copy of what is displayed on the Model 236 Color 
Computer: 

• Take a picture of the CRT. 

• Re-run the program that generated the image with an external plotter selected as the display 
device (plotter is 705»"HPGL"). 

The first method is the easiest and can capture (usually) whatever is on the CRT, regardless of what 
colors are used (see “Color Gamuts,” above.) The second requires setting up the color map to 
match the pens in a plotter, and is not as likely to capture what you see on the screen. Both 
methods are discussed. 
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Photographing the CRT 

Photography is an art, not a science. Capturing images off a CRT is relatively straightforward, but 
sometimes unpredictable due to the different color gamuts available for film and the CRT. The 
following guidelines will provide a starting point. If your images are not “typical” (whatever that 
means) you may have to go back and re-photograph some of them. All the CRT images in the 
Language Reference were captured using these guidelines. 

• Use ISO 64 Color film. (The Language Reference color photos were taken on Kodak 
Ektachrome 64.) 

• Set up your equipment in a room that can be darkened. It will have to be darkened for the 
one-second exposure. 

• Use a telephoto lens (the longer the better, up to about 500mm). This minimizes the effects of 
the curvature of the CRT. 

• Use a tripod. 

• Darken the room and take a one-second exposure. 

• Bracket the aperture around f5.6. (One stop above and below.) 


Plotting and the CRT 

There are two basic reasons the CRT is hard to capture on a plotter. 

• The CRT is an additive color device and a plotter is a subtractive color device. 

• The color gamut of the CRT is much larger than that of the plotter. 

The conversion from additive to subtractive colors is not a huge problem if the plot is a simple line 
drawing with few intersections and area fills. If the plot is complex, especially with lots of intersec¬ 
tions and overlapping filled areas, the plot is much less likely to capture the display image accur¬ 
ately. 

A possible technique described below purposely limits the color gamut of the CRT to give the 
plotter some chance of capturing it. 

To set up the color map and plotter to match one another: 

• Set your background to white (SET PEN 0 INTENSITY 1.1,1). 

• Set up pens matching the color map colors in slots 1 through 8 in the same order they are 
presented in the default color map listed under “Default Colors.” 

• Use pen selectors from 8 through 15 to select your pens. 

• Run the program with the color mapped CRT as the display device, modifying it as necessary 
to produce the image you want on the CRT. 

• Re-run the program with the plotter as the display device. You will need to subtract 8 from the 
pens to properly select the set available on the plotter. 

While it is possible to get some idea of the plot that will be produced on the plotter, don’t be 
surprised if they don’t look exactly the same. Colors on a CRT are different in source and form from 
colors on a plotter, as described under “Seeing Color,” above. 
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Color References 

The following references deal with color and vision. Texts that serve as useful introductions to the 
topic are starred. 

* Cornsweet, T., Visual Perception. New York: Academic Press, 1970 

Farrell, R. J. and Booth, J. M., Design Handbook for Imagery Interpretation Equipment (AD/A-025453) 
Seattle: Boeing Aerospace Co., 1975 

Graham, C. H., (Ed.) Vision and Visual Perception New York: J. Wiley & Sons, Inc., 1965 

* Hurvich, L. M., Color Vision: An introduction. Sunderland, MA: Sinauer Assoc., 1980 

Judd, D. B., Contributions to Color Science (Edited by D. MacAdam; 545) NBS special publication Washington: U. S. 
Government Printing Office, 1979 

* Rose, A., Vision: human and electronic. New York: Plenum, 1973 
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Chapter 

~ 6 ~ 


In this chapter, various more advanced topics will be briefly discussed. You are encouraged to load 
these routines and try them out after reading the discussion. No program listings will be provided, 
but some programs/subprograms are on the Manual Examples disc which came with your machine. 
Every file has at least some code which is general-purpose enough that you can copy program 
segments into your own applications. The files which are programs can be loaded with a LOAD 
command. The files which just contain subprograms which can be bodily moved into an application 
program are in ASCII format; they must be gotten with a GET command. Some of the following 
routines will work on either monochromatic (black-and-white) or color CRTs, but a few will only 
work on a Model 236 Color Computer. These will be noted as such. 

There are several external routines which are called by the following subprograms. They are short, 
convenient utility subprograms. Listings of these and other utility routines are provided in the Utility 
Routines chapter. 

Note that the subprograms stored on the Manual Examples disc and the utility subprograms 
provided in the Utility Routines chapter were included for your convenience. You would need to 
create applications programs (files of type PROG) to use them. 
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Bar Charts and Pie Charts 

A bar chart routine, which may plot on either a CRT or a plotter, is a general purpose routine. 

Below are two sample (random) outputs from a typical bar chart program. The first shows a 
comparative” bar chart; that is, a bar chart in which comparisons between individual bars may 
easily be made. The second shows a “stacked” bar chart; that is, a bar chart in which bars from the 
same group are stacked one on top of the other, so that the sums of the bars in each group may be 
compared. 
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The pie-chart program (on the Manual Examples disc) can use both the color map and area fills. 
This program may be loaded from the Manual Examples disc from the file named “Pie_Chart . 
The program sends random data to the subprogram. 
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Two-dimensional Transformations 

When you want a two-dimensional figure to be drawn after having been scaled, translated, rotated, 
or sheared, you need to know about the generalized 2D transformations. The purpose of this 
manual is not to go into theoretical discussions in depth, but some excellant sources will be cited 1 . 

For 2D graphics, there needs to be a three-column data array: the first two columns are the X and 
Y coordinates, and the third column is something necessary to keep the mathematics working 
correctly (refer to the cited works for further discussion). 

The transformation matrices for scaling, translation, rotation, and shearing are defined as follows. 
They all start out as an identity matrix and are modified thus: 

2D Scaling Transformation Matrix 

”s x 0 o" 

0 S y 0 

_0 0 1 _ 

S x is the scaling factor in the X direction, and S y is the scaling factor in the Y direction. This means 
that you can stretch or compress the image along both axes independently. 

2D Translation Transformation Matrix 

"l 0 0" 

0 10 
_T X T y 1_ 

T x and T y are the translation factors in the X and Y directions, respectively. Translation (moving the 
image) can take place in the X and Y directions independently. 

2D Rotation Transformation Matrix 

cos0 - sin0 0 

sin0 cos0 0 

0 0 1 _ 

This allows you to rotate the image about the origin. 0 is the angular distance through which the 
object is to be rotated, and it is expressed in current units. If you want to rotate the object about 
some other point than the origin, you must translate that point to the origin, do the rotation, and 
translate it back to the original point. 


1 For an in-depth discussion into many areas of computer graphics, we recommend these books: 

Principles of Interactive Computer Graphics , William M. Newman and Robert F. Sproull, 2nd Edition, McGraw-Hill, 1979. 
Fundamentals of Interactive Computer Graphics , J. D. Foley and A. Van Dam, Addison-Wesley, 1982. 

Mathematical Elements for Computer Graphics , David F. Rogers and J. Alan Adams, McGraw-Hill, 1976. 
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2D Shearing Transformation Matrix 

" 1 Sh y 0" 

Sh x 1 0 

_ 0 0 1 _ 

Shearing is translating different parts of the image different amounts, depending on the value in the 
other axis. For example, if your data array is the outline of a capital “R”, shearing in the X direction 
with a positive value would “italicize” it; that is, shift the top of the letter farther to the right than the 
middle of the letter. It would become slanted. 

These transformations are applied to the data array by a matrix multiplication (see the MAT 
statement in the BASIC Language Reference manual). To see these operations in action, load the 
program “Lem2D” from the Manual Examples disc (a knob is required). 

The different transformations are selected by pressing “T” for translation, “R” for rotation, “S” for 
scaling, and “H” for shearing. Rotating the knob controls the values put into the transformation 
matrix. Where applicable (everywhere except rotation), the knob by itself causes the transformation 
to affect the X-axis, and shift-knob affects the Y-axis. Study the program and accommodate 
techniques to your system and situation. 
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Three-Dimensional Transformations 

In a logical extension of the two-dimensional transformations, the three dimensional transforma¬ 
tions have four columns. Again, this allows the matrix multiplies to work. 

3D Scaling Transformation Matrix 


S x 

0 

0 

0 


0 

s y 

0 

0 


0 

0 

S 2 

0 


3D Translation Transformation Matrix 


1 

0 

0 

T 

L 1 x 


o 

l 

0 


0 

0 

1 

T, 


3D Rotation Transformation Matrices 

When rotating in three dimensions, there are three different axes about which rotation can occur. 
When rotating points about the X-axis, the Y and Z coordinates of the points change, but not the X 
coordinates. When rotating about the Y-axis, X and Z coordinates change, but not Y coordinates. 
When rotating about the Z-axis, X and Y coordinates change, but not Z coordinates. These 
characteristics become apparent after seeing how the rotation matrices are constructed. 

Rotation about X-axis 


0 0 

cos0 - sin0 

sin0 cos0 

0 0 


Rotation about Y-axis 


COS0 

0 

-sin0 

0 


0 

1 

0 

0 


sin0 

0 

COS0 

0 


Rotation about Z-axis 


COS0 

sin0 

0 

0 


-sin0 

COS0 

0 

0 


0 

0 

1 

0 
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Again, in rotation about an axis in three dimensions, the values in that axis are not changed, only 
the values in the other two axes are changed. For example, in rotation about the first axis (the 
X-axis), the first row and first column of the matrix are straight from the identity matrix and 
therefore do not cause a change in the X-values of the resultant matrix. 

3D Shearing Transformation Matrix 

' 1 s yx S zx 0" 

s xy 1 s 2y 0 

s X2 s yz 1 0 

_ 0 0 0 1 _ 

This shearing transformation is a little bit more tricky. S xy is the shear in the X direction which is 
proportional to Y, and is the shear in the X direction which is proportional to Z. The other values 
work in a similar manner. As you can see, with 3D shearing, the amount of shear is dependent 
upon the values in both the other dimensions. 
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Surface Plotting 

There are three different methods included on the Manual Examples disc for plotting a surface; that 
is, plotting a two-dimensional array the value of whose elements represent the third dimension at 
that point. Each method will display the same data so that you can get a feel for the advantages and 
disadvantages of each method of display. The data, a 100 x 100 array, is random “mountains” and 
“valleys,” and looks somewhat like old hills worn smooth by erosion. 

Contour Plotting 

A contour map is a display of a surface from directly above the surface, from an infinite distance. 
“Infinite” in this context merely means that no perspective effects are included. 

The subprogram is passed the surface array, the minimum and maximum contour levels, the 
contour interval, and three logical variables. These specify: 

1. whether or not you want the local minima and maxima noted on the output, 

2. whether or not you want two lines of “stats”; informational lines concerning array size and 
contour intervals, and 

3. whether or not the plot is to be sent to a CRT. For more information, see the file “Contou r” 
on the Manual Examples disc. 

Both the following plots were made with this subprogram. Only the contour interval was changed 
between the first and second plots. The subprogram was instructed to note the local highs and lows, 
and also to print the array information at the bottom of the plot. 
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Gray Maps 

This concept goes back to the days before graphics output devices were in widespread use, and line 
printers were called upon to plot pictures. Basically, the darkness of a character printed by the 
printer was proportional to the range in which an element in the array fell. The darkness was caused 
by overstriking characters in various combinations to produce different amounts of black ink on the 
page. 

The same concept can be used with graphics output devices. The output looks better, of course, 
because of the increased resolution of graphics output devices over line printers, but the overall 
result is similar. A gray map can be output to a monochrome or color CRT, and both kinds are 
presented here. First, the monochrome version. The probability of a pixel being turned on is 
proportional to the value of the array at that point. To make computation easier, the routine scales 
the array such that the lowest point becomes zero, and the highest point becomes one. Therefore, 
the light areas are the high points, the darker areas are the low points, and the average brightness of 
an area on the screen is proportional to the value in the array at that point. 
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This routine is on the file “G rav.Map” on the Manual Examples disc. 



Next is a Gray Map as drawn by the Model 236 Color Computer. It must be a Model 236 Color 
Computer (and not an external color monitor interfaced with an HP 98627A) because the color 
map capabilities are needed. The main difference is that instead of the probability of a pixel 
being turned on being dependent on the array value, all pixels are turned on, and it’s the color 
of each pixel which is dependent on the array value. 

Pen 0 is not redefined, as it is the background color, but pens 1 through 15 are defined to be 
varying shades of gray: 

FOR Pen = 1 TO 15 

SET PEN Pen COLOR 0 »0 »(Pen-1>/14 
NEXT Pen 

Observe that a gray map on a color CRT looks quite a bit like a contour map. 
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To make the difference between the highs and the lows more obvious, you could define the pens 
thus: 

FOR Pen = 1 TO 15 

SET PEN Pen COLOR 2/3+1/3*(Pen>8)tABS(9-Pen)».7 
NEXT Pen 

This will cause the levels below the main level to be shades of blue (hue = 2/3) and shades above 
the main level to be shades of red (hue = 2/3 +1/3 = 1.0). 
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Surface Plot 

Another way to look at an array is to look at it from some other angle than straight above. The 
following routine allows you to look at the surface from above or below. Again, this is the same data 
as before; notice that the highs and lows are in the same places. 

This routine (found on the file “Su rf ac e” on the Manual Examples disc) functions by plotting each 
row of the array as one line on the plotting device. The points of each line are defined to be an 
offset (determined by which row is currently being plotted and the “height” from which you are 
looking at the surface) plus the value of the array element you’re on. A height array is maintained, 
the first row of which is the highest point encountered thus far for that column number, and the 
second row contains the lowest points encountered thus far. If a point is higher than the highest 
point seen so far, it is visible, and then it becomes the new highest point. The low points are 
similarly maintained. 

The parameters Front.edse and Back.edse are the height, in GDUs, that the front edge and the 
back edge of the array are to be from the bottom of the plotting surface. If Front.edse is less than 
Back.edse, more of the top surface will be visible. Conversely, if Front.edse is greater than 
Back.edse, more of the bottom surface will show. 

In the first of the three plots, the variable “Opaque” is passed to the subprogram with a value of 0 
(false). Therefore, the surface is treated as if it were transparent, and no hidden lines are removed. 
This makes the surface hard to interpret because you cannot tell which surface is supposed to be 
closer to you; everything is visible. In the next two plots, “Opaque” is 1 (true), and hidden lines are 
removed. In the first of the two opaque surfaces, the top is more visible; in the second, the bottom is 
more visible. 















V 
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Utility Routines 


Chapter 


This chapter consists of several utility routines which are called by some of the subprograms in the 
Data Display and Transformations chapter. Others are included which would be convenient for 
many graphics applications. A small amount of discussion is included before the routine, if it is 
necessary. 


Drawing Arcs 

Note that only two parameters are required. Everything from Radius on is optional. The two 
ON...GOTO statements (lines 130 and 200) take care of the number of parameters passed, 
assigning default values for only those parameters which were not passed by the calling context. 


10 


a#######**####*##*####*#**#**#*#*###*****##****#**#****************#*** 


20 Arc: 

30 ! 

40 ! 

50 ! 

GO ! 

70 ! 

80 ! 

90 ! 

100 ! 

110 ! 

120 ! 

130 ON 


SUB Arc(X #Y^OPTIONAL Radius-iStart_#End_#Interval5-fPenup_#Aspect_) 
This subroutine draws an arc of a circle with the center at X»Y and a 
radius of "Radius"* The arc starts at a position of "Start" decrees 
and ends at "End" decrees and has a total of "Interval" individual 
line segments* The treater "Intervals" is# the rounder the arc will 
look# but also the longer the routine will take to finish* If "Penup" 
is non-zero# the pen will be picked up before the arc is started* If 
not# it will be left down (assuming it was down before)* Oftentimes# 
you want to draw a straight line to the arc you are starting to draw* 
If "Radius" is positive# the arc will proceed counterclockwise? if 
negative# clockwise* 

9-NPAR GOTO 140#150#1G0#170#180#190#200 ! ON Cmaxparms>+l-NPAR 


140 Aspect=Aspect- 
150 Penup=Penup_ 

180 I n t e r v a 1 s = I n t e r v a 1 s _ 

170 End=End_ 

180 Start=Start_ 

190 Radius=Radius_ 

200 ON NPAR-1 GOTO 210 #220 #230 #240 #250 #260 #270 ! NPAR+1 -< re=i ♦ parms) 


210 Radius=l* 

220 Start=0* 

230 End=380* 

240 Inte rvals = INT((End-Start)/5.) 

250 Penup=l 

280 Aspect=l* 

270 DEG 

280 IF Penup THEN PENUP 

290 IF (Radius>0♦) AND (End< = Start) THEN End = End+3B0* 

300 IF (RadiusCO*) AND (End>=Start) THEN End=End-3G0♦ 

310 Step=(End-Start)/Inte rvals 

320 Radius=ABS(Radius) 

330 FOR I =St a rt TO End STEP Step 

340 PLOT X+Radius#Aspect*C0S(I) #Y+Radius*SIN(I) 

350 NEXT I 

380 SUBEND 
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Simulating Wide Pens 

With the next two subprograms, you can draw pictures that will look like your plotter pen is 
extremely wide. Theoretically, you could specify that your pen is wider than the whole plotting 
surface, although not much of a picture would result. 

10 ! a*#*#*****#********#*#**##*****######*#*********#*#***#*#**###**###*##* 

20 Fat_line: SUB Fat-1ine(XI*Y1*X2>Y2*Thickness*Delta) 

30 ! This routine makes a line from point XI#Y1 to point X2»Y2 simulating a 

40 ! pen whose tip is width "Thickness"* Delta is the approximate (it may 

50 ! be tweaked) distance between actual lines* The smaller delta is* the 

GO ! darker and more accurate the simulation will be* but the execution 
70 ! time will suffer* 

80 DEG 

90 D i s t an c e = SQR ( < X2-X1) A 2+ (Y2- Y1) ■'' 2) 

100 Anale=FNAtan(Y2-Y1*X2-X1) 

110 C o s _ an 4 1e = COS(An 1 1e) 

120 Sin-an$le=SIN(An$le) 

130 Pe rp = An ale+90 

140 Cos-pe rp = C0S(Pe rp) 

150 Sin_perp=SIN(Perp) 

ISO Delta = Thick ness/I NT(Thickness/Delta) 

170 S e mit hic k = T hic k n e s s/2 

180 Directions 

190 PENUP 

200 FOR Y = -Semithick TO Semithick STEP Delta 

210 Dx = S0R ( Sem i t h i c k '■ 2- Y 2) 

220 IF Direction THEN 

230 PLOT Xi+Y#Cos_pe rp-Dx*Cos-.ansfle *Yl+Y*Sin_pe rp-Dx*Sin_ansr 1 e 

240 PLOT X2+Y*Cos_perp+Dx#Cos-an 4 1e*Y2+Y*Sin_perp+Dx#Sin-an*1e 

250 ELSE 

260 PLOT X2+Y#Cos_perp+Dx*Cos_an 4 1e *Y2 + Y#Sin_pe rp+Dx*Sin_an 3 1e 

270 PLOT Xl+Y*Cos_pe rp-Dx*Cos.an * 1 e >Yl+Y*Sin-pe rp-Dx#Sin_ansfle 

280 END IF 

290 Direction=N0T Direction 

300 NEXT Y 

310 SUBEND 


10 

20 Fat- 
30 
40 
50 
GO 
70 
80 
90 
100 
110 
120 
130 
140 
150 
180 
170 


! *********************************************************************** 
arc: SUB Fat-arc(X*Y*Radius*Thetal#Theta2*Delta-theta»Thickness#Delta) 

This routine makes an arc centered around point X*Y and radius Radius 
Soina from Thetal to Theta2 by Delta_theta* simulating a plotter 
pen whose tip is width "Thickness"* Delta is the approximate (it may 
be tweaked) distance between actual lines* The smaller delta is* the 
darker and more accurate the simulation will be* but the execution 
time will suffer* 

DEG 

S e m i t h i c k = T h i c k n e s s / 2 

Delta = Thickness/I NT(Thickness/Delta)-1*E-13 
Pe rpl=Thetal+90 
Cos_pe rpl=C0S(Pe rpl) 

Sin-perpl=SIN(Pe rpl) 

Pe rp2 = Theta2+90 
Cos_perp2 = C0S(Pe rp2) 

Sin-Perp2=SIN(Perp2) 
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180 FOR R=Radius-SemithicK TO Radius+Semithick STEP Delta 

190 Dx=SQR(SemithicK " 2 - (R-Radius)*2) 

200 IF Direction THEN 

210 PLOT X+R*COS(Thetal)-Dx*Cos_perpl»Y+R*SIN(Thetal)-Dx*Sin_perpl 

220 FOR Theta=Thetal TO Theta2 STEP Delta.theta 

230 PLOT X+R*COS(Theta)»Y+R*SIN(Theta) 

240 NEXT Theta 

250 PLOT X+R*COS(Theta2)+Dx*Cos_perp2 »Y+R*SIN(Theta2)+Dx*Sin_perp2 

2B0 ELSE 

270 PLOT X+R*COS(Theta2)+Dx*Co5_perp2tY+R#SIN(Theta2)+Dx*Sin_perp2 

280 FOR Theta=Theta2 TO Thetal STEP -Delta.theta 

290 PLOT X+R*COS(Theta)»Y+R*SIN(Theta) 

300 NEXT Theta 

310 PLOT X+R*COS(Thetal)-Dx#Cos_perpl»Y+R*SIN(Thetal)-Dx*Sin_perpl 

320 END IF 

330 Direction=NOT Direction 

340 NEXT R 

350 SUBEND 

Housekeeping 

The next few subprograms deal with the humdrum housekeeping chores that need to be done to 
start and/or end a plot. 

10 ! a**###***#****#*#*****#*#****##***###***##***#***#**#**###*#######**### 

20 Plotter.is: SUB PIotter_is(Crt) 

30 ! This subroutine defines the plotting device to be used* 

40 Crt=FNAsk("Do you want the plot on the CRT?"»"YES") 

50 IF Crt THEN 

SO GINIT 

70 PLOTTER IS 3 * "INTERNAL" 

80 ELSE 

90 ON TIMEOUT 7,5 GOTO 140 

100 GINIT 

110 PLOTTER IS 705 , "HPGL" 

120 OFF TIMEOUT 7 

130 SUBEXIT 

140 Message("I 'ue tried for 5 seconds to raise select code 75 no answer* D 

efaultinsf to CRT*") 

150 OFF TIMEOUT 7 

ISO GINIT 

170 PLOTTER IS 3,"INTERNAL" 

180 C rt = 1 

190 END IF 
200 SUBEND 
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This next routine forces the user to set PI and P2 (the lower-left and upper-right comers of the 
plotting surface, respectively) before the PLOTTER IS statement is executed. The reason this is 
necessary is that the PLOTTER IS statement reads PI and P2, which define the hard-clip limits. 
Therefore, if they are set after the PLOTTER IS is executed, they will be ignored, and the old values 
(the ones in effect when the PLOTTER IS was executed) will be used. 

10 ! *********************************************************************** 

20 Load-paper: SUB Load_paper(OPTIONAL 0rientation_$) 

30 ! This prompts the user to put the paper in the plotter in the 

40 ! orientation^ and to define the corners of the paper* BEFORE the 

50 ! PLOTTER IS statement is executed* 

GO IF NPAR=0 THEN 

70 Orientation$="" 

80 ELSE 

90 0 rie n t a tio n $ = 0 rie n t a tio n-$ 

100 END IF 

110 SELECT UPC$(TRIM$(Orientation$)) 

120 CASE M H" 

130 0rient$= H horizontally" 

140 CASE "0" 

150 0rient$=" vertically" 

1 GO CASE ELSE 

170 0rient$="" 

180 END SELECT 

190 BEEP 

200 DISP "Put the paper in the plotter"50rient$5"t define the corners* and hi 

t 'C0NT'*" 

210 PAUSE 

220 DISP 

230 GINIT 

240 PLOTTER IS 705*"HPGL" 

250 SUBEND 


10 j a*#**#**#**#*#*#*#******#*###*###************************************** 

20 Gdu: SUB Gdu(X-*du-max >Y-£fdu-max *0PTI0NAL Gdu-xmi d *Gdu_ymi d ) 

30 ! This returns X r i sf h t * Yhiah and their respective midpoints in GDUs* 

40 ! Note that if Gdu-xmid is defined* Gdu-ymid must be also* 

50 COM /G-units/ Gdu-xmax *Gdu_ymax >Udu_xmin*Udu-xmax *Udu-ymin »Udu_ymax*Show 

GO IF Gdu-xmax=0 THEN 

70 Gdu-xmax=100#MAX(1*RATI0) 

80 Gd U- y max = 100#MAX(1 * 1/RAT 10) 

90 END IF 

100 X_$du-m a x = G d u-x m a x 

110 Y-*du-max=Gdu-ymax 

120 IF NPAR>2 THEN 

130 G d u-x mid = G d u-x m a x *♦5 

140 Gdu-ymi d = Gdu-'/max* ♦ 5 

150 END IF 

160 SUBEND 
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10 ! *********************************************************************** 
20 Pause: SUB Pause(OPTIONAL Graphics-) 

30 ! This indicates that the output is finished# so push 'CONT' to 3o on* 

40 IF NPAR=0 THEN 

50 Graphics=0 

GO ELSE 

70 Graphics=Graphics- 

80 END IF 

90 IF Graphics THEN 

100 BEEP 

110 GRAPHICS OFF 

120 ALPHA ON 

130 END IF 

140 DISP "Push 'CONTINUE' when you're ready to 3o on*" 

150 IF Graphics THEN 

160 HAIT 2 

170 ALPHA OFF 

180 GRAPHICS ON 

190 END IF 

200 PAUSE 

210 DISP 

220 IF Graphics THEN 

230 GRAPHICS OFF 

240 ALPHA ON 

250 END IF 

2G0 SUBEND 


10 ! *********************************************************************** 
20 End-Plot: SUB End_plot(Crt#Copy#Device) 


30 
40 
50 
GO 
70 
80 
90 
100 
110 
120 
130 
140 
150 
1 GO 
170 
180 
190 
200 
210 
220 
230 
240 
250 
2G0 
270 


! This is Just a housekeeping routine that takes care of some sundries 
! at the end of a plot* "Crt" is a logical variable that tells whether 

! the plot was done on the CRT or not* "Copy" is a variable that is 

! returned to the calling routine that tells you whether you want 

! another copy of the plot on the hard-copy plotter (Note that if Crt is 

! true# Copy is forced to be false)* "Device" is the address of the 
! DUMP DEVICE* 

IF Crt THEN 
CALL Paused) 

Copy=0 

IF FNAsk("Shall I 'DUMP GRAPHICS'?"#"NO") THEN 
Expanded = FNAsk("* * *'EXPANDED'?"#"N0") 

OUTPUT KBD USING "##K" iDevice 
INPUT "Dump device?"#Device 
IF Expanded THEN 

DUMP DEVICE IS Device 
ELSE 

DUMP DEVICE IS Device #EXPANDED 
END IF 

DUMP GRAPHICS 
END IF 
ELSE 
PENUP 
PEN 0 

CALL Gdu(X-tfdu_max #Y_sfdu-max) 
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280 

S e 1a u 



290 

MOVE X-.adu-.max 

*Y_adu 

-.max 

300 

IF Copy THEN 



310 

Copy=FNAsK(" 

Do you 

want another 

320 

IF Copy THEN 

CALL 

Load-.paper 

330 

END IF 



340 

END IF 



350 

SUBEND 




Program Efficiency 

The following subprogram, Label, becomes useful only if there are several labels to be plotted 
which have different character sizes, orientations, label origins, etc. One call of this routine allows 
you to set all of the parameters dealing with labelling. Thus, in the calling routine, you need only 
have one line per label, rather than a CSIZE, LDIR, LORG, PEN, and MOVE for each label. 


10 | a*###*####*#**##*#******##**#**#*#####********#***#*****#****#****##*#* 

20 Label: SUB Label (Csize *Asp-.ratio *Ldi r *Lo ra *Pen >X *Y *Text$) 

30 ! This defines several systems variables (in CSIZE* LDIR* etc*)* and 

40 ! labels the text (if any) accordingly* 

50 DEG 

GO CSIZE Csize*A sp- ratio 

70 LDIR Ldir 

SO LORG Lora 


90 

100 

110 

120 

130 


PEN Pen 
MOVE X *Y 

IF Text$< >"" THEN LABEL USING "#*K 

PENUP 

SUBEND 


5 Text$ 



The next routine returns the arctangent in the correct quadrant of Y/X, both of which are passed in. 
If X = 0, the routine takes care of it; it doesn’t attempt a divide by zero. 


10 ! a*#***######**#**#******#*****##*##*##*##***#*#*####*#***#*##****###*** 

20 Atari: DEF FNAt an (Y * X) 

30 ! This figures the arctangent of Y/X in the correct quadrant and taKes 

40 ! care of multiples of 90 decrees where X = 0♦ The value returned is in 

50 ! current units* 

GO Radians=(ACS(-1)=PI) 

70 DEG 

80 IF X = 0 THEN 

90 A r c t an =(90+180*(Y<0))*( Y< >0) ! If X = 0 an d Y = 0 * A rc t an = 0♦ 

100 ELSE 

110 Arctan = ATN(Y/X) +180#(X<0)+3S0#((X>0) AND (Y<0)) 

120 END IF 

130 IF Radians THEN 


140 RAD 

150 A ret an = A ret an/57♦2957795131 

1G0 END IF 

170 RETURN A ret an 

180 FNEND 
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This next routine was called by the Gray Map routine in the Data Display and Transformations 
chapter. It takes an array and re-scales it to fit a new minimum and maximum. 

10 i *********************************************************************** 

20 Scale: SUB Seale(Surface(*) tNew.min»New_max) 

30 ! This routine scales a matrix such that it will have a new lowest 

40 ! value of New_min and a new hishest value of New_max. 

50 DISP USING "K" i "Seal ini the surface array from "tNew_min»" to "»New_maxt" 

II 

♦ 

GO Min=MIN(Surface(*)) 

70 Max=MAX (Su rf ace (#)) 

80 IF Min = Max THEN ! Array is completely flat 
90 MAT Surface 2 (New.min) 

100 SUBEXIT 

110 END IF 

120 MAT Surface 2 Surface-(Min ) 

130 Ran $e_ r e c i p 2 (Ne w.max -Ne w.m i n ) / (Max -M i ri) 

140 MAT Surface 2 Surface*(Ran$e_recip) 

150 MAT Surface 2 Surface+(New.min) 

1G0 DISP 

170 SUBEND 

9845 Graphics System Compatibility 

The HP 9845 graphics system allowed the user to go between UDUs and GDUs at will, merely by 
executing the statements SETUU and SETGU. Series 200 BASIC does not have these statements, 
but they can be simulated by the following short subprograms. (See also subprogram G d u in the 
“Housekeeping” section, above. It can set the X max and Y max in GDUs.) 

10 i *********************************************************************** 

20 S e t $ u: S U B S e t 3 u 

30 ! This simulates the 9845 Graphics statement SETGU* 

40 COM /G_units/ Gdu.xmax>Gdu_ymax»Udu.xmin»Udu_xmaxtUdu.ymintUdu.ymax»Show 

50 WINDOW 0fGdu.xmax t0 *Gdu_ymax 

GO SUBEND 


10 ! a********************************************************************** 

20 Setuu: SUB Setuu 

30 ! This simulates the 9845 Graphics statement SETUU* 

40 COM /G_units/ Gdu.xmax>Gdu.ymax»Udu.xmin»Udu.xmaxtUdu.ymintUdu.ymax>Show 

50 IF Show THEN 

GO SHOW Udu.xmin tUdu.xmaxtUdu.ymintUdu.ymax 

70 ELSE 

80 WINDOW Udu.xmin tUdu.xmax tUdu.ymin #Udu_ymax 

90 END IF 

100 SUBEND 



10 

20 

30 

40 

50 

GO 


j *********************************************************************** 

Show: SUB Show(XlefttXrishttYlow»Yhi*h) 

! This simulates the system command SHOW» but saues the variables so 
! the routines S e t 3 u and S e t u u w o r K♦ 

COM /G.units/ Gdu.xmax tGdu.ymaxtUdu.xmintUdu.xmaxtUdu.ymintUdu.ymax»Show 
IF Gdu.xmax=0 THEN 
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70 G d u_ x m a x = 100#MAX(1tRATIO) 

80 Gdu_ymax=100#MAX<1#1/RATIO) 

90 END IF 

100 Udu_xmin=Xleft 

110 Udu_xmax=Xri$ht 

120 Udu_ymin=Ylow 

130 Udu_ymax=Yhi$h 

140 S h o w = 1 

150 SHOW Xleft»Xri*httYlow»Yhi*h 

ISO SUBEND 

10 ! a*******#*#*******#**#**#*********##***#*###***#**#**#**#*******#**#*#* 

20 Windows SUB Window(Xlef t >Xri sfht »Ylow *Yhi $h ) 

30 ! This simulates the system comm 

and WINDOW » but saves the variables so 
40 ! the routines Se t sf u and S e t uu work* 

5u COM /G_un i t s/ Gdu-xmax t Gdu_ymax * Udu_xmin »Udu«xmax t Udu_ymin * Udu-'/max *Show 
GO IF GdU-xmax = 0 THEN 

70 G d U-x m a x = 100#MAX(1tRATIQ) 

80 G d u_y m a x = 100#MAX(1 1 1/RATIO) 

80 END IF 

100 U d u _ x min = X1e f t 
110 U d u-x m a x = X ri3 h t 

120 U du _y min = Y1o w 

130 U d u _ y m a x = Y hiS h 

140 Show=0 

150 WINDOW Xleft»Xritfht»Ylow#Yhi*h 

1 GO SUBEND 

HPGL 

The following subprogram specifies the maximum speed at which a plotter should draw. This was 
made specifically for an HP 9872 plotter, which has a maximum pen speed of 36 cm/sec. If your 
plotter has a different maximum speed, you will need to change line 100 to reflect the new 
maximum speed. 

10 ! *********************************************************************** 

20 Pen_speed: SUB Pen_speed(Speed.OPTIONAL Device.) 

30 ! This sends an HPGL plotter the command to draw at a maximum speedt 

40 IF NPAR =1 THEN 

50 Devioe = 705 

SO ELSE 

70 Devioe=Device- 

80 END IF 

90 IF Speed = 0 THEN INPUT "What should the maximum plotter speed?" (Speed 
100 Speed=MIN(MAX(l.I NT(Speed*.5)>.36) 

110 OUTPUT Device USING "# .K" i "US"&UAL$(Speed)&"5" 

120 SUBEND 



l 
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Miscellaneous 

The next two subprograms are not explicitly graphics routines, but they are very useful general- 
purpose routines and they are used both in previous routines in this chapter, and in the large 
programs of Data Display and Transformations chapter. 


10 

20 Ask: 
30 
40 
50 
GO 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 


a**##*###**#**#*****##*#*****#*#**#*#***#**#*****#***#***#************* 
DEF FNAsk(Que70 Udu-IN(Surstion$*Default$^OPTIONAL Timeout) 

This is a Yes-or-no question-answering function* The question is 
in to the function* asked of the user* and the default answer can be 
accepted* If the user answers intelligibly* that answer is returned 
through the function name? 1 for yes* and 0 for no* If the user 
responds unintelligibly# the computer beeps* draws attention to the 
fact that an illegal answer was aiven* re-asks the question* and will 
a sf a i n accept the default answer* 

If Timeout is passed the question will be asked for that specified 
number of seconds before the default answer is assumed* If Timeout is 
not passed* it will wait indefinitely for user response* 

DIM Answer$[160] 

IF NPAR=3 THEN 

ON DELAY Timeout GOTO Take-default 
DI5P Question* 

ON KBD ALL GOTO Process-key 


180 Spin: 


GOTO Spin 


i 


* at warp 10 * we're 3oin 7 nowhere mighty f ast♦♦♦" 


180 Process-key: OFF DELAY 

200 Key$=KBD$ 

210 SELECT Ke y$C1*11 

220 CASE CHR$(255) ! It was a non-ASCII keypress. 

230 SELECT Key$C2*2] 

240 CASE "E"*"C" ! Enter or Continue?* .. ♦♦♦♦.♦♦♦♦♦♦♦♦ 

250 GOTO Take-default 

2S0 CASE ELSE ! Illegal non-ASCII key ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

270 BEEP 

280 END SELECT ! (select key$C2*23) 

290 CASE ELSE ! ASCII keystroke***************************************** 

300 OUTPUT KBD USING "**K"5Key$ 

310 END SELECT ! (select key$Cl*ll) 

320 OFF KBD 

330 END IF ! (if npar=3) 

340 LOOP ! Now that we're in this loop* we'll stay until we sfet a tfood answer 
350 DISP Question*? 

3G0 LINPUT ""*Answer* 

370 Answe r*=UPC*(TRIM*(Answe r$)) 

380 IF Answe r*="" THEN Answer*=UPC*<TRIM*(Default*)) 

390 Convert-answer: SELECT Answer* 

400 CASE "YES"»"Y"*" 1" ! Affirmative. 

410 RETURN 1 

420 CASE "NO"»"N"*"0" ! Negative. 

430 RETURN 0 

440 CASE ELSE ! Huh?!?************************************************** 

450 CALL Message("Please answer with a YES or a NO*") 

4BO END SELECT 

470 END LOOP 

480 Take-default: DISP 


490 OFF DELAY 
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500 Answer$=UPC$(TRIM*(Default*)) 

510 GOTO Convert-answer 

520 FNEND 


10 ! a#*#**#*#######*#***#*##*#*#######*#####**###**##*#*#*####*##*######### 

20 Message: SUB Message(Message*#0PTI0NAL Wait-) 


30 

40 

50 

GO 

70 

80 

90 

100 

110 

120 

130 

140 

150 

1G0 

170 

180 

190 

200 

210 

220 

230 

240 

250 


! This subroutine displays a message on the DISPlay line of the CRT# 

! usually to notify the user of an error# or that a section of code has 
! finished executing# etc* If Wait- is not defined [passed]# the 
! computer will beep# and the message will be displayed for two seconds# 
! then disappear* If Wait- is defined# the computer will beep if it is 
! treater than or equal to zero# it will not beep if it is less than 
! zero# and in either case# the wait will be the absolute value# rounded 
! to the nearest millisecond# unless it is zero# in which case the 
! message will not be erased at all* 

DISP Message* 


IF NPAR=1 THEN 
BEEP 
WAIT 2 
DISP 

ELSE ! (n p a r = 2) 

IF Wait-> = 0 THEN BEEP 
Wait=PROUND(ABS(Wait-) #-3) 
IF Wait>0 THEN 
WAIT Wait 
DISP 

END IF ! (if wait>0) 

END IF ! (if npar =1) 

SUBEND 


! Default: 

! Wait 2 seconds# then 
! clear the message* 

! Note that the rounding occurs AFTER the 
! BEEP* This allows "negative zero" which 
! not only will not beep# but it will leave 
! the message displayed# avoiding the WAIT 
! and DISP* A "negative zero" is simulated 
! by passing a negative number which will 
! round to zero! e♦$♦ # -*0001* 
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Appendix 


For your convenience, below is a table and a description of the graphics programs and subpro¬ 
grams on the Manual Examples disc. First is a table of the concepts and capabilities that the various 
programs exhibit. Following that is an alphabetic listing of the file names with a short description of 
them. 

Program Characteristics 


f 


/ 

# * 
S 






f 




/ 
> . 




/ 


4 s 


/ 

/ 






/ 
# . 


& 

/ 




o° 


/ 


Co C 

J # 

^ & 

# 4 / 








Sr 




File Name 

c? 

<? 

© 

vy 



/ 

<? 

AT 

/ 

to 

# 

/ 


© 

J 

/ 



SinViewPrt 

E 

X 















Csize 

E 


X 














CharCell 

E 


X 














Lorg 

E 


X 














Ldir 

E 


X 














SinLabel 

E 

X 

X 














SinAxes 

E 

X 

X 














SinGrdAxes 

E 

X 

X 














Pen 

E 







X 








X 

Gstore 

M 

X 

X 

X 


X 


X 

X 








Lem2 

E 






X 



X 







Rplot 

E 






X 

X 


X 







Iplot 

E 


X 




X 










Scenery 

E 






X 



X 







Symbol 

E 


X 




X 










BAFLKNOB 

E 

X 

X 

X 


X 


X 









CIRCLES 

C 

X 

X 

X 

X 






X 



X 



BACKGROUND 

C 

X 


X 


X 

X 

X 



X 

X 


X 

X 

X 

MARQUEE 

C 


X 











X 

X 

X 

RIPPLES 

C 



X 


X 







X 

X 

X 

X 

STORM 

C 






X 







X 

X 

X 

Animation 

C 













X 

X 

X 

STEREO 

C 

X 


X 

X 


X 




X 

X 


X 



Pie_Chart 

C 

X 

X 














Lem2D 

E 

X 


X 


X 

X 





X 





tContour 

E 

X 

X 




X 










tGray_Map 

E 

X 





X 









* 

tSurface 

E 

X 





X 











t These are subprograms only, and must be called from a main program. All others are stand-alone programs. 
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Animation 

Any of three scenes can be portrayed as flashing by at high speed; some rushing at you, some 
rushing away. Demonstrates color map animation. “Warp five, Mr. Sulu...” 

BACKGROUND 

Demonstrates color map definition, non-dominant drawing, three-dimensional transformations, 
and knob interaction. A box is rotated (repeatedly drawn and erased) in front of a grid without 
damaging the grid. The display is flicker-free because one image is drawn invisibly while the last 
image remains. The color map is altered to make the new image visible, while the old, now 
invisible, image is erased and a new one is drawn. 

BAR_KNOB 

Demonstrates the use of the knob to control dynamic displays. 

CharCell 

Shows the relationship between the actual character size and the character cell size. 

CIRCLES 

This shows that the color map can be defined to simulate an additive color scheme, a subtractive 
color scheme, or any arbitrary color scheme. 

Contour 

This subprogram accepts a two-dimensional array and plots a contour map. The user may specify 
low and high contour level and contour interval. 

Csize 

Demonstrates how to use the CSIZE statement to change the size of the character cells into which 
labelled characters are placed. 

DumpGraph 

This subprogram takes an image from the frame buffer of a monochromatic CRT and sends it to a 
HP 82905A printer. 

Gray_Map 

This subprogram accepts a two-dimensional array and plots a gray map from it. The data is scaled 
from zero to one. 

Gstore 

Demonstrates the use of GSTORE and GLOAD in quickly replotting the unchanging part of an 
otherwise dynamic image. 

Iplot 

Uses incremental plotting to create characters for plotting labels in a user-defined character set. 


Ldir 

Demonstrates how the LDIR statement allows labelling of text on the graphics screen at any desired 
angle. 
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Lem2 

Lem2 shows how the pen-control parameter lifts and drops the pen. It takes the same data and 
plots it in one statement. Uses area fills. 


Lem2D 

This demonstrates the four basic two-dimensional graphics transformations: 
scaling and shearing. The knob controls the values entered, and “T”, “R”, 
tively, select the operations. 


translation, rotation, 
S”, and “H”, respec- 


Lorg 

Demonstrates how the LORG statement allows centering or cornering of labels in both the X and Y 
directions. 


MARQUEE 

Uses color-map animation to create a movie marquee announcing the coming attractions. 

Pen 

Demonstrates drawing modes on monochromatic CRTs. Lines are drawn, erased and com¬ 
plemented. 

Pie_Chart 

This program runs a subprogram which accepts pie chart data: up to fourteen segments, each with 
its own label, plus title and subtitle. 

RIPPLES 

Color map animation with concentric circles. The luminosity of the color represents the height of 
the ripple on the water. 

Rplot 

Uses RPLOT statement to move subpictures, PIVOT to rotate them, and AREA INTENSITY to 
define shading. 

Scenery 

Uses POLYGONS, POLYLINES, RPLOTS, and area fills to create an idyllic scene of rustic sim¬ 
plicity. 

SinAxes 

This is part of the “Progressive Example” in Chapters 1 and 2. Axes are added, along with labels at 
appropriate points along them. 

SinGrdAxes 

This is part of the “Progressive Example” in Chapters 1 and 2. Both a GRID and two AXES 
statements are used to allow ease of interpolation of values on the data curve and also to avoid 
clutter. 

SinLabel 

This is part of the “Progressive Example” in Chapters 1 and 2. Labels are plotted after having used 
CSIZE, LORG and LDIR. 
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SinViewPrt 

This is part of the “Progressive Example” in Chapters 1 and 2. A viewport is defined using GDU 
measurements of the screen. 

STEREO 

Uses non-dominant drawing and three-dimensional transformations to display red-blue stereo 
images which can be viewed through bi-colored glasses. 

STORM 

Demonstrates the use and speed of color map animation. A little house on the prairie is besieged by 
a thunderstorm. 

Surface 

This subprogram draws a surface represented by a two-dimensional array. Hidden lines may be 
removed, and the viewing angle can be selected by the user. 

Symbol 

Demonstrates how to define and label user-defined characters with the SYMBOL statement. 
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Example Graphics Programs 

The following programs use graphics to help illustrate the operation of several of the graphics 
statements available in BASIC. You may wish to modify or entirely rewrite the programs to better 
understand how the statements work. 
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Sine 



10 

! Program: SINE 


20 

! 


30 

! Shows some basics of 

d r a win s and 1 a be 1 in s♦ 

40 

i 


50 

DEG 

! DEGREES 

BO 

GINIT 

! INITIALIZE 

70 

GRAPHICS ON 

! RASTER ON 

80 

PRINT CHR$ (12)5 

! CLEAR ALPHA 

90 

WINDOW -100#800#-2#2 

! SET WINDOW 

100 

AXES 90*.5 

! DRAW AXES 

110 

j 


120 

LORG 6 

! LABEL X AXIS 

130 

FOR 1=0 TO 720 STEP 90 


140 

MOOE I *0 


150 

LABEL I 


ISO 

NEXT I 


170 

! 


180 

LORG 8 

! LABEL Y AXIS 

190 

FOR I = -1♦5 TO 1 4 5 STEP 

,5 

200 

MOOE 0#I 


210 

LABEL I 


220 

NEXT I 


230 

i 


240 

LORG 5 

! LABEL PLOT 

250 

NOME 450 1 1♦75 


2B0 

LABEL "Plot of SIN(X)" 


270 

! 


280 

MOVE 0#0 

! PLOT SINE 

290 

FOR X = 0 TO 720 


300 

DRAW X »SIN(X) 


310 

NEXT X 


320 

! 


330 

END 
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Axes 



10 
20 
30 
40 
50 
GO 
70 
80 
90 
100 
110 
120 
130 
140 
150 
1 GO 
170 
180 
190 
200 
210 
220 
230 
240 
250 
26 0 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 


Program: AXES 


Draw and label the AXES statement. 


GINIT 

GRAPHICS ON 
ALPHA OFF 
! 

X1 o c = 2 0 

Y 1 o c = 2 0 
XmaJ = 4 

Y m a J = 2 
S i z e = 8 


X AXIS LOCATION 
Y AXIS LOCATION 
MAJOR TICK COUNT 
MAJOR TICK COUNT 
LENGTH OF TICKS 


FOR 1=100 TO 10 STEP -1 
PEN -1 

AXES X tic *Y tic* X1o c*Y1o c*Xma J>Ym a j*Siz e 
X t i c = I 


Y t i c = I 


PEN 1 

AXES X tic *Y tic» X1o c* Y1 o c » X ma J*Y m a J*Size 
NEXT I 


MODE X1o c * Y1 o c ! LABEL THE AXES 

IDRAN 20 >20 
LABEL "XlocfYloc" 

MOVE X1oc+40 * Y1 o c 
IDRAW 20*30 
LABEL "Major TicK" 

MODE X1o c + 5 0 * Y1o c 
IDRAW 10*15 
LABEL "Minor TicK" 

MODE Xloc-Size/2*Y1oc + 40 
DRAW 40*80 

MODE Xloc + Size/2 *Y1oc + 40 

DRAW 40*80 

LABEL "Tick Size" 


END 
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Grid 































































































































































































































10 


















































































































































































































































10 ! Program: GRID 

20 ! 

30 ! Shows various size s rids♦ 

40 ! 

50 GIN IT 

GO GRAPHICS ON 

70 PRINT CHR$(12)5 

80 ! 

90 WINDOW -110»100 »-l 10»1 10 
100 ! 

110 Y1o c = 0 ! CENTER AT 0>0 

120 X1o c = 0 

130 XmaJ = 6 

140 Ymaj = 2 

150 Size=20 

1 GO ! 

170 LORG 4 

180 ! 

190 FOR 1=10 TO 100 STEP 2 

200 Xt i c = I 

210 Y tic = I 

220 GCLEAR 

230 MOOE 1/2*0 

240 LABEL I 

250 GRID X tic *Y tic * X1o c * Y1o c * X m a J *Y m a J *Siz e 

2G0 WAIT (100-D/100 

270 NEXT I 

280 ! 

290 WAIT 2 

300 GRAPHICS OFF 

310 END 
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10 

! Pros ram: LABEL 


20 

! 


30 

DEG 


40 

GINIT 


50 

GRAPHICS ON 


BO 

Clear.c r t $ = CHR$ ( 255 ) &:CHR$ ( 75 ) 

70 

OUTPUT 2 5 C 1 e a r_c rt$ 5 


80 

SHOW -100#100#-100#100 


90 

j 


100 

FOR 1=0 TO 3G0 STEP 22*5 ! 

! NON-ROTATED 

110 

MOVE -GO >0 


120 

PI MOT I 


130 

I DRAW 40 *0 


140 

LORG 5 


150 

LABEL "hp" 


1 GO 

NEXT I 


170 

| 


180 

FOR 1=0 TO 3GO STEP 22*5 

! ROTATED 

190 

MOUE GO #0 


200 

PIUOT I 


210 

I DRAW 40#0 


220 

LORG 2 


230 

LDIR I 

! NOTE LDIR USED 

240 

LABEL "hp" 


250 

NEXT I 


2 G0 

j 


270 

END 



c 
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Ginit 


2d r rlqe nD 


921 9V9?1 


10 ! Program: GINIT 

20 ! 

30 ! This program does a specialized 'GINIT' 

40 ! 

50 PRINT CHR$(12)5 ! CLEAR SCREEN 

60 ! 

70 ! CUSTOMIZED 'GINIT' 

80 ! 

90 PLOTTER IS 3 »"INTERNAL" 

100 CLIP OFF 

110 PI DOT 0 

120 PEN 1 

130 LINE TYPE 1 *5 

140 LORG 5 

150 CSIZE 8#-.6 

ISO LDIR 0 

170 MODE 90 #60 

180 GCLEAR 

190 VIEWPORT 0 »RAT I 0*100 *0 »100 
200 WINDOW 0»RATI0*100 tOtlOO 
210 ! 

220 GRAPHICS ON 

230 LABEL "Reverse Graphics" 

240 LIST 60 >230 

250 END 
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Rplot 




-w- 

-w- 

-w- 


-W- 

-w- 


-w- 

- > W"- 

-'W s - 


-w- 

-w- 

-w- 

-w- 

-W- 


-^wH 

-'W^* 

-w- 

-w- 




-w- 




-w- 





10 ! Pros ram: RPLOT 

20 ! 

30 ! Repeats an iinaSe at various locations* 

40 ! 

50 DEG 

GO GINIT 

70 GRAPHICS ON 

80 WINDOW - 10 # 370 #- 100#100 

90 PRINT CHR$( 12)5 ! CLEAR SCREEN 

100 DISP " RPLOT" 

110 FRAME 

120 ! 

130 FOR 1=0 TO 3 G 0 STEP 12 

140 MOUE I »SIN(I)* 8 0 

150 GOSUB Shape 

1 GO NEXT I 

170 ! 

180 GOTO Quit 

100 ! 


200 

Shape: 

! DRAW 

210 

! 


220 

RPLOT 

o 

o 

i 

230 

RPLOT 

-G *0 

240 

RPLOT 

-4 f 2 

250 

RPLOT 

-2 ,-2 

2 GO 

RPLOT 

0 >2 

270 

RPLOT 

2 ,-2 

280 

RPLOT 

4 ,2 

290 

RPLOT 

G »0 

300 

RPLOT 

1 0 1 0 

310 

RETURN 

320 

! 


330 

Quit: 

END 


C 
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Randomview 




10 

! Program: RANDOMOIEW 


20 

! 


30 

RANDOMIZE 


40 

! 


50 Start: ! Demonstration of 01EWP0RT and WINDOW 

GO 

! 


70 

DEG 


80 

GINIT 


90 

GRAPHICS ON 


100 

ALPHA OFF 


110 

! 


120 

! Generate some random numbe rs 

130 

! 


140 

Kmin = RND*131 


150 

Xmax = Kmin+RND*(131-Kmin) 


ISO 

Ymin=RND*100 


170 

Ymax = Ymin + RND*(100-Ymin ) 


180 

j 


190 

! Set 01EWP0RT to random 

area 

200 

! 


210 

OIEWPORT Km in * X m a x»Ymin »Y m a x 

220 

WINDOW -50 ,50#-50>50 


230 

FRAME 


240 

j 


250 

! Draw a rose within the 

area 

280 

I 


270 

FOR 1=0 TO 200 


280 

P=40#C0S(11*1) 

! ELEUEN LEAF ROSE 

290 

X = P*COS( I ) 


300 

Y = P*SIN(I) 


310 

DISP INT(Xmax-Xmin) 5": " 

? IN T ( Y m a x - Y m i n ) 

320 

IF 1=0 THEN MOOE X»Y 


330 

DRAW X ♦ Y 


340 

NEXT I 


350 

! 


360 

GOTO Start 

! DO IT AGAIN 

370 

END 


























COLOR 


dHITE 

WHITE 

WHITE 

WHITI 

RED 

RED 

RED 

RED 

YELLOW 

YELLOW 

YELLOW 

YELLi 

GREEN 

GREEN 

GREEN 

GREEI 

CYRN 

CYAN 

CYAN 

CYAN 

BLUE 

BLUE 

BLUE 

BLUE 

YIRGENTR 

MAGENTA 

MAGENTA 

MAGEI 


10 

! Program: COLOR 


20 

| 


30 

! This program works with th 

e 9 

40 

! Color Output Interface 


50 

! 


60 

! Note that a 'PLOTTER IS' s 

tat 

70 

! immediately follow ' GINIT' 

5 t 

80 

! 


90 

! Note different pen a s s i 3 ri m 

en t 

100 

j 


110 

GINIT 


120 

PLOTTER IS 28 *"98627A" 


130 

GRAPHICS ON 


140 

PEN 1 


150 

FRAME 


160 

! 


170 

FOR X = 0 TO 120 STEP 40 


180 

MOUE X *70 


190 

PEN 1 


200 

LABEL "WHITE" 


210 

PEN 2 


220 

LABEL "RED" 


230 

PEN 3 


240 

LABEL "YELLOW" 


250 

PEN 4 


260 

LABEL "GREEN" 


270 

PEN 5 


280 

LABEL "CYAN" 


290 

PEN 6 


300 

LABEL "BLUE" 


310 

PEN 7 


320 

LABEL "MAGENTA" 


330 

NEXT X 


340 

END 



t 
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Pivot 


MODEL 


WITH PIVOT 



10 

! Program: PIOOT 


20 

i 


30 

! Shows pi voting around a point* 


40 

} 


50 

DEG 


60 

GINIT 


70 

GRAPHICS ON 


80 

PRINT CHR$(12)? 


30 

DIM X(4) *Y(4) 


100 

DATA 40 >20 >0 >14 > - 6 >6 »-14 >0 »-20 > -40 ! 

SHAPE 

110 

FOR 1=0 TO 4 


120 

READ X<I) #Y<I) 


130 

NEXT I 


140 

! 


150 

DATA 80 #130 >35 >85 > 0 >40 >50 >90 ! 'WINDOWS' 

160 

READ SI >S r >Sb >St >M1 >M r >Mb >Mt 


170 

! 


180 

DIM 0rSx(3) >Or*y(3) 


190 

DATA 40 >60 >40 >40 >20 >20 >0#0 ! ORIGINS 


200 

FOR 1=0 TO 3 


210 

READ Ortfx(I) >Or*y(I) 


220 

NEXT I 


230 

MOVE 10 #95 


240 

LABEL "MODEL" 


250 

MOUE 90>90 


260 

LABEL "WITH PIVOT" 


270 

LINE TYPE 8 


280 

MOVE Ml>Mb ! CONNECT 

LINES 

290 

DRAW SI>Sb 


300 

MOVE Mr > M b 


310 

DRAW Sr > S b 


320 

MOVE Mr >M t 


330 

DRAW Sr >St 


340 

MOVE SI>St 


350 

DRAW Ml>M t 


360 

j 


370 

MOVE Ml>Mt 


380 

P=1 


390 

LINE TYPE 1 


400 

Ox = Or«fx( Index) 


410 

Oy = Or^y(Index ) 


420 

GOSUB Model 


430 

j 
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440 
450 
4 GO 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
BOO 
810 
G20 
630 
G40 
650 
G60 
G70 
G80 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 


VIEWPORT SI»Sr»Sb»St 

SHOW -25 »100 *-25 »100 

GOSUB Shape 

DISP "An a 1 e ="5 An a1e 

An a1e = Ana 1e+5 

IF An a 1e<361 THEN 460 

CALL Cursor(0x»0>'t-1) ! PIVOT POINT 

P = -l 

GOSUB Model 
An a 1 e = 0 
Index=Index+l 
IF Index >3 THEN Quit 
GOTO 380 
! 

Model: VIEWPORT Ml»Mr»MbtMt 

SHOW -25 »100 »-25 »100 
FRAME 

GOSUB Shape 
RETURN 

Shape: ! DRAW IN CURRENT 'WINDOW' 

PEN -1 
MOVE 20 »20 
FOR 1=0 TO 4 
IDRAW X(I) »Y(I) 

NEXT I 
MOVE Ox »0v 
PEN 1 

CALL Curso r(Ox tOv t P) 

PIVOT An ale 
PEN 1 
FRAME 

MOVE 20 *20 
FOR 1=0 TO 4 
IDRAW X(I) »Y(I) 

NEXT I 
RETURN 
Quit:DISP 
END 
; 

! -SUB PROGRAM- 

i 

SUB Curso r(X »Y »P) 

PEN P 
PIVOT 0 
MOVE X »Y 
I MOVE 5 *0 
IDRAW -10»0 
IMOVE 5»5 
IDRAW 0*-10 
MOVE X »Y 
SUBEXIT 
SUBEND 










A-16 


Showwindow 


MODEL 



10 ! PROGRAM: SHOWWINDOW 

20 ! 

30 ! Compares the mapping of SHOW arid WINDOW 

40 ! 

50 DEG 

BO GINIT 

70 GRAPHICS ON 

80 DISP "WINDOW AND SHOW" 

90 DIM X(200) »Y ( 2 0 0 ) > C e n t e r $ [ 4 0 ] 

100 FOR 1=0 TO 180 

110 R=100*C0S(5*I ) 

120 X(I)=R*COS(I) 

130 Y(I)= R*S IN(I ) 

140 NEXT I 

150 ! 

180 ! Determine if running on a 0828 or 9838* 

170 ! Needed for centering of prompt* 

180 IF RAT10>1*32 THEN 

190 S p a c e = 2 0 

200 ELSE 

210 Spac e = 35 

220 END IF 

230 FOR 1=1 TO Space 

240 Cen t e r$ = Cen t e r$& : " " 

250 NEXT I 

280 ! 

270 ! 

280 DATA 0#30#0>50#57#77»75#95 
290 READ SI »S r »Sb>St »M1 t M r t Mb> M t 

300 ! 

310 Loop: ! FRAME THE PLOTTING AREAS 

320 GINIT 

330 PRINT CHR$(12) 5 

340 ALPHA OFF 

350 W r=131 

3G0 Wl=Wr-Sr 

370 Wt=St 

380 W b = S b 

390 VIEWPORT SI ,Sr»Sb #St 

400 FRAME 

410 VIEWPORT Ml#Mr»Mb#Mt 

420 FRAME 

430 VIEWPORT Ml»Mr#Nb#Nt 
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c 


c 


440 

FRAME 



450 

OIEWPORT 0 #131.36#0*100 



4S0 

! 



470 

LINE TYPE 5 

! 7 SHOW ' 

LINES 

480 

MOOE Ml * M b 



490 

DRAW 51*Sb 



500 

MOVE M r *Mb 



510 

DRAW Sr *Sb 



520 

MQOE Mr >Mt 



530 

DRAW Sr*St 



540 

MOOE SI»St 



550 

DRAW Ml *Mt 



5 GO 

LINE TYPE 6 

! 'WINDOW 

' LINES 

570 

MOOE Ml»Mb 



580 

DRAW Ml»Wb 



590 

MOOE Mr #Mb 



GOO 

DRAW Wr»Mb 



G10 

MOOE M r *Mt 



620 

DRAW Wr*Wt 



G30 

MOOE Ml »Mt 



640 

DRAW Ml »Wt 



G50 

! 



G60 

LINE TYPE 1 



670 

OIEWPORT 0 #131.36#0*100 ! 

LABELS 


680 

WINDOW 0*131♦36*0 *100 



690 

LORG 1 



700 

MOOE Ml»Mt 



710 

LABEL "MODEL" 



720 

MOOE SI»St 



730 

LORG 1 



740 

LABEL "SHOW" 



750 

MOOE W r *Wt 



760 

LORG 7 



770 

LABEL "WINDOW" 



780 

! 



790 

FOR 1=1 TO 180 

! DRAW A 

ROSE IN 

800 

LINE TYPE 1 

! PLACES 

AT ONCE 

810 

OIEWPORT Ml »M r*Mb »Mt 



820 

SHOW -100*100*-100*100 



830 

MOOE X(I - 1> * Y(I - 1) 



840 

DRAW X(I) *Y(I) 



850 

OIEWPORT SI *Sr *Sb *St 



860 

SHOW -100*100*-100*100 



870 

MOOE X(I - 1 ) *Y(I- 1 ) 



880 

DRAW X(I) *Y( I ) 



890 

OIEWPORT Ml *Wr *Wb *Wt 



900 

WINDOW -100*100*-100*100 



910 

MOOE X(I-l) »Y(I-1) 



920 

DRAW X(I) »Y( I ) 



930 

NEXT I 



940 

! 



950 

DISP Center!*"NEW RATIO" \ 

i 


960 

OUTPUT 2!Center$; 



970 

INPUT "" * R a 



980 

IF Ra< =0 THEN Quit 



990 

IF Ra> =1 THEN 



1000 

S r = 49 



1010 

S t = 6 0 / R a 



1020 

ELSE 



1030 

St = 60 



1040 

S r=49*Ra 



1050 

END IF 



1060 

GOTO Loop 



1070 

i 



1080 

Quit:GRAPH ICS OFF 



1090 

OUTPUT 2 USING "#*B"1 

1255 *75 


1100 

END 




THREE 
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Gload 



10 ! Program: GLOAD 

20 ! 

30 ! DIMENSION 'PICTURE' ARRAYS 

40 ! 

50 OPTION BASE 1 

GO A = 7500 ! ARRAY SIZE FOR 982G 

70 IF RATIO<1*32 THEN A=124B0 ! ARRAY SIZE FOR 983G 

80 ALLOCATE INTEGER P1(A) ,P2(A) , P3(A) »P4(A) 

90 ! 

100 DEG 

110 GINIT 

120 GRAPHICS ON 

130 PRINT CHR$(12)5 

140 DISP "GLOAD/GSTORE" 

150 SHOW - 800 >800,- 800,800 

1 GO ! 

170 GCLEAR 

180 FOR 1=0 TO 90 STEP .5 ! HEAD 

190 MOOE 0 »0 

200 PIOOT I 

210 MOOE -200 #0 

220 DRAW 200*0 

230 MOOE 0,0 

240 PIOOT -I 

250 MOOE -200,0 

2GO DRAW 200,0 

270 NEXT I 

280 ! 

290 PEN -1 

300 FOR 1=0 TO 3G0 STEP 8 ! EYE 

310 MOOE 40,100 

320 PIOOT I 

330 I DRAW 10,0 

340 NEXT I 

350 ! 

3G0 PEN 1 

370 MOOE 300,0 

380 LABEL "l" 

390 GSTORE Pl<*) ! SAOE PICTURE IN ARRAY 'PI' 

400 BEEP 3400,.02 
410 PEN -1 

420 MOOE 300,0 

430 LABEL "l" 

440 ! 
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450 

4 GO 
470 
480 
490 
500 
510 
520 
530 
540 
550 

5 GO 
570 
580 
590 
600 
G10 
620 
G30 
G40 
650 
GGO 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 


A = 0 
B = 1 0 

GOSUB Mouth 
MOVE 400 >0 
LABEL "2" 

GSTORE P2(*) ! SAVE PICTURE IN ARRAY 

BEEP 3400 »♦ 02 

PEN -1 

MOVE 400*0 

LABEL "2" 

! 

A = 10 
B = 20 

GOSUB Mouth 
MOVE 500*0 
LABEL "3" 

GSTORE P3(*) ! SAME PICTURE IN ARRAY 

BEEP 3400*.02 

PEN -1 

MOVE 500*0 

LABEL "3" 

! 

A = 20 
B = 40 

GOSUB Mouth 
MOVE 600*0 
LABEL "4" 

GSTORE P4(*) ! SAVE PICTURE IN ARRAY 

BEEP 3400*.02 

PEN -1 

MOVE 600*0 

LABEL "4" 

! 

Movie: ! animation loop 
GL.OAO Pl<*) 

GLOAD P2(*) 

GLOAD P3(*) 

GLOAD P4(*) 

GOTO M-o u i e 

i 


850 Mouth: 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 

970 END 


PEN -1 

FOR I=A TO B STEP .2 

MOVE 0*0 

PIVOT I 

DRAW 200*0 

MOVE'0*0 

PIVOT -I 

DRAW 200*0 

NEXT I 

PEN 1 

PIVOT 0 

RETURN 


' P2 ' 


'P3' 


'P4' 


O 
























Subject Index 


a 


Additive color system 

. 102 

Animation, color map 

.96 

Anisotropic. 

. 6 

Anisotropic scaling. . . 

.6 

AREA COLOR. 

.52,82 

AREA INTENSITY . . 

.52,82 

AREA PEN. 

.52, 81 

Aspect ratio. 

. 19 

AXES. 

... 10, 11, 28, 29, 30, 33 


b 

Backgrounds. 

.93 

Bits/pixel. 

.39 

Business colors. 

.84 


c 


Ceiling of a number.6 

Character-cell. 18 

Choosing colors. 100 

CLIP.34 

CLIP OFF.29, 34 

CLIP ON.29, 34 

Clipping. 29, 34, 8 

Closed loop system. 71 

CMY color cube. 102 

Color.81 

COLOR.88 

Color blindness.96 

Color echoes. 77 

Color gamuts. 106 

Color map.85 

Color map animation.96 

Colorspaces. 102 

Color temperature. 101 

Colors, business.84 

Colors, default.84 

Colors, primary.84 

Compatibility with 9845 graphics. 129 

Complementary writing.94 


Continuous degrees of freedom. 73 

Contour plotting. 116 

Controlling pen force.67 

Controlling pen speed.67 

CSIZE. 16, 19, 23 

Current relative location.47 


d 


Data driven plotting.43 

Default colors.84 

Default non-color map values.82 

Defining a Viewport. 13 

Degrees of freedom. 72 

Designing displays.95 

DIGITIZE. 74 

Dithering.46 

Dithering color.89 

Dithering, optimizing.91 

Dominant pen mode.66 

DRAW.50 

Drawing arcs. 123 

Drawing lines.4 

Drawing Modes.35 

Drawing polygons.52 

DUMP DEVICE IS.62, 63 

DUMP GRAPHICS.62, 63 

Dumping raster images.62 


e 


EDGE. 

.50, 56 

Efficiency of programs. 

. 128 

Erasing colors. 

.83 

Error detection. 

.69 

External color displays. 

£ 

.65 

I 

FILL. 

.50, 56 

Floor of a number. 

.6 

Frame buffer. 

.83 












































































s 


m 


GDUs. 13,19,8 

GESCAPE. 77,88 

GINIT.4 

Graphics input. 79 

GRAPHICS INPUT IS.80 

GRAPHICS ON.4 

GRID. 28,30,33 

GSTORed image.64 


h 

Hard clip limits.34, 8 

Hewlett-Packard Graphics Language... 61, 67 

Housekeeping. 125 

HPGL.61, 62, 67 

HPGL plotter speeds. 130 

HSL color space. 104 

HSL Model.86 

HSL Resolution.87 


i 


Image.64 

IMOVE.50 

Incremental plotting.50 

INTENSITY.86 

Interactive graphics. 71 

IPLOT.50, 56 

Isotropic. 13, 5 

Isotropic scaling.5 


1 


LABEL 


Labeling a PLOT 

LDIR. 

LINE TYPE. 

LORG. 


.... 16,23,9 

.9 

... 21, 22, 23 

.38,39 

20, 21, 22, 23 


Major tick count.31 

Major tick lines.32 

Manual Examples disc. 1 

Mapped. 13 

MAT REORDER.97 

Minor tick count.31 

Minor tick crosses.32 

Minor ticks.32 

Mixed color modes. 73 

Mixing colors.95 

Monochrome echoes. 76 

MOVE. 23, 47, 50, 9 


n 


Non-color mapped color.81 

Non-separable degrees of freedom. 73 


P 


Palette.85 

PDIR.47, 52 

PEN.81 

Pen control parameter.43, 44 

PEN number.35 

Photographing CRTs. 107 

PIVOT. 47,52,55 

Pixel.46 

Pixels.39 

PLOT.4, 9 

PLOTTER IS.61 

Plotting contours. 116 

Plotting surfaces. 116, 120 

POLYGON.52 

POLYLINE.52, 55 

Primary colors.84 

Program efficiency. 128 


q 

Quantisizable degrees of freedom 


73 

































































RATIO. 

READ LOCATOR 
RECTANGLE ... 

Rectangles. 

RGB color cube.. 

RGB Model. 

RPLOT. 


. 14,79 

. 74 

.56 

.56 

. 102 

.86 

47, 48, 55, 56 



Scaling.5 

Seeing color.94 

Selecting a plotter.61 

Selecting character sets.68 

Selecting line types.38 

Separable degrees of freedom. 73 

SET ECHO. 74, 75 

SET PEN. 86,87,97 

SHOW.5 

Single degree of freedom. 72 

Soft clip area.8 

Soft clip limits.34, 8 

Subtractive color system. 102 

Surface plotting. 116, 120 

SYMBOL.56,57 

Symbol coordinate system. 19, 57 


Tick marks. 11 

TRACK ON.74 

Transformations. 112, 113, 114, 115 



UDUs. 13,8 

Utility routines. 123 


V 

VIEWPORT. 14,15,29,8 

w 


Wide pens. 124 

WINDOW. 17, 8 
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